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abstract 

Current  technologies  in  the  fields  of  telecornunications 
and  coirputer  processing  are  hecoiring  increasingly  Integrated 
to  the  extent  that  *dis tributed^  computer  networks  are 
assuming  key  roles  in  communications.  The  complex 
computerized  systems  necessary  to  support  mcdern  military 
command  and  control  requirem.ents  are  expensive,  resigning 
such  systems  by  trial  and  error  is  not  feasible,  yet  no 
other  viable  alternatives  exist.  This  thesis  offers  an 
original  methodology  for  evaluating  the  predicted 
performance  of  military  automated  systems.  Using  Petri-Nets 
as  a  modeling  tool,  computer  simulations  with  color  graphics 
output  are,  performed  to  demonstrate  the  feasibilty  of  this 
approach  as  a  systems  design  tool. 
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Ks  Pllitary  planners  loo5c  forwe^d  to  the  design  of 
futur“  cor^mand,  control,  and  cormnnications  C C7 )  systems, 
several  key  factors  should  be  at  the  forefront  of  their 
thinking.  First  of  all,  it  is  readily  apparent  that  there 
has  been  a  proliferation  of  computer  resources  for  military 
applications.  Even  the  most  "tactical"  of  systems  today  is 
becoming  a  sizeable  collection  of  computers,  databases, 
sensors  and  information-handling  equipment. 

Secondly,  one  can  sense  that  the  fields  of 
telecommunications  and  computer  science  are  becoming 
increasingly  Integrated.  Although  these  once-sepe ra te 
disciplines  have  v^ry  different  histories  and  traditions, 
th®y  are  erperi®ncing  a  tec.hnological  convergence  which  is 
having  far-reaching  Implications  for  both  the  military  and 
civilian  societies,  "oday  the  concepts  and  techniques  of 
computer  processing  have  been  Integrated  with  communications 
to  the  ertent  that  both  fields  share  the  sere  kind  of  logic, 
storage,  switching  and  transmission.  Because  information 
handling  systems  now  employ  tel erormunica ti ors  and 
Irformatlcn  in  such  an  intimate  mixture,  it  is  difficult  to 
distinguish  what  in  the  system  is  computer  processing  and 
what  is  communi ca tlcns . 

A  third  key  factor  should  be  a  realization  that  certain 
concepts  of  comnuter  communication  networks  and  distributed 


system  architectures  offer  advantages  for  military 
applications  due  to  the  potential  for  survi vablli ty  and  lack 
of  centralization. 

Computer  networks  are  often  created  spontaneously  by 
corblrlng  computers  and  communicatl ons .  The  growth  of 
computer  networks  is  one  of  the  significant  outcomes  of  the 
convergence  of  the  two  disciplines.  An  extensive  array  of 
computing  resources  can  be  connected  over  a  wide  geographic 
area  via  telecommunications  channels.  The  potential 
architectures  for  such  networks  are  limitless  when  one 
considers  the  variety  of  hardware,  software,  protocols  and 
gecsraphic  distributions  that  might  comprise  the  system. 

Another  key  factor  is  that  system  planners  reed  to  focus 
their  efforts  upon  total  system  integration.  Tactical 
automated  systems  tend  to  be  developed  individually  to  meet 
unioue  mission  requirements.  For  instan-e,  separate  systems 
are  typically  justified  and  developed  for  missions  of  fire 
control,  air  defense,  intelligence,  personnel  management  and 
loffistics,  etc.  V/hile  these  separate  systems  may  peform 
satisfactorily  alone,  there  is  difficulty  in  prcvldirg  a 
suitable  management  information  system  by  which  the  overall 
commander  or  decision-maker  can  have  access  to  the 
information  in  all  these  separate  systems  in  a  format  that 
is  easy  to  understand  and  use. 

Another  important  consideration  is  that  the 
proliferation  of  automated  systems  places  a  severe  burden 
upon  the  communications  equipment  that  links  systems 
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together.  There  is  a  tendency  for  automated  systems  to  he 
seuarately  developed  with  i nsuf f ici ent  emphasis  pla^'ed  upon 
the  communications  equipment  that  v;ill  transmit  the 
information.  In  other  words,  the  sensors  and  pro''essor5  of  a 
system  may  work  splendidly,  hut  planners  must  not  take  it 
for  granted  that  the  data  will  arrive  at  the  correct 
destination  in  an  error-free  condition. 

The  communications  equipment  and  channelization  that 
carry  the  information  must  he  as  carefully  ergineered  as  the 
other  cornpcnents  of  the  system.  In  addition,  the  data  on  the 
channel  ""ust  he  in  a  format  that  is  compatible  wth  other 
systems.  The  U.S.  Army  is  coming  t^  grips  with  the  fact  that 
if  the  some  50  tactical  automated  systems  on  the  drawing 
hoards  were  to  he  fielded  for  use  at  the  corps  level,  there 
emists  no  communications  equipment  capable  of  carrying  the 
vast  volume  of  ir.formatlcn  these  systems  would  generate.  In 
addition,  when  the  communications  eouipment  rust  operate 
with  specifications  of  transmission  security.  Jam 
resistance,  and  low  probability  of  intercept  in  a  severe 
electronic  warfare  threat  environment,  the  design 
difficulties  are  considerably  maenified. 

Lastly,  military  planners  should  he  concerned  about 
heine  able  to  accurately  predict  system  performance.  An 
accurate  predictor  of  system  performance  is  needed  for  use 
by  those  in  procurement  duties  to  ensure  that  performance 
specifications  given  by  contractors  will  in  fact  prove  to  be 
true  when  a  new  system  Is  fielded.  'Managers  of  currently 
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operational  systems  also  require  this  service,  ’’’hey  are 
asking  in  the  course  of  daily  duties  such  questions  as:  Vhat 
would  he  the  effect  of  increased  buffer  space  at  this  busy 
location?  Vhat  would  be  the  impact  or.  total  system 
performance  if  a  particular  node  or  link  in  the  network  is 
removed?  Such  a  desire  for  prediction  of  system  uerformance 
has  created  great  emphasis  upon  modeling  techniques  and 
computer  simulations  of  systems  to  answer  these  questions. 

All  of  the  above  factors  have  given  impetus  to  this 
thesis.  A  particular  modeling  tool  which  addresses  these 
needs  is  described  (the  Petri-Net)  and  is  implemented  to 
facilitate  communications  network  modeling. 

The  paper  presents  three  primary  points  of  original 
work: 

1.  It  is  demonstrated  that  automated  networks  can  be 
meaningfully  modeled  with  the  use  of  Petri-N'ets. 

2.  It  is  shown  that  Petri-Net  models  of  networks  can  be 
adapted  for  effective  computer  execution  and  display  o’"  a 
color  graphics  terminal.  Simulations  which  incorporate 
graphics  output  are  more  easily  understood  end  have 
considerable  educational  value. 

3.  The  results  of  this  research  Indicate  that  the 
implementation  of  such  a  modeling  technique  in  a  production 
environment  as  a  predictor  of  system  performance  is 
feasible . 

The  above  3  points,  although  successfully  Implemented 
in  the  Naval  Postgraduate  School  C3  laboratory,  represent  a 
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II.  ^iETWORKS;  ^rTIVATIOK’.  TA?:CNCMY  ANT  P?PfORV/NC? 

A.  INTRCrUCTION 

Prsdlctlne  the  performance  of  an  automated  network  can 
Indicate  a  measure  of  a  system's  effectiveness  and 
ef  f  iciency .  [31  Evaluating  a  sy'^tem's  performance  is  a 
complCT  task.  This  task  often  requires  modeline.  Many 
performance  modif i'^atiors  are  more  suitably  performed  on 
models  than  the  actual  system,  because  "trial  and  error” 
production  is  not  feasible  economically.  This  chapter 
discusses  the  motivations  for  network  design  and  the 
practicalities  of  predicting  network  performance. 

E.  MOTIVATION  FOR  THE  ANALYSIS  OF  PERFORMANCE 

The  magnitude  of  Information  processing  in  the  ’^rlted 
States  is  unprecedented  and  still  growing.  Computer 
processing  and  communications  make  a  major  portion  of 
currently  accessable  information  available  to  federal 
agencies  and  commerical  businesses.  As  the  country  is 
becoming  Increasingly  dependent  on  the  need  for  information, 
the  exlstance  of  reliable,  effective  computer  communication 
networks  is  essertlal  to  transport  computer-processed 
inf orma  t ion . 

With  the  added  cost  of  energy,  the  attractiveness  of 
moving  resources  to  the  user  via  computer  communications 
networks  is  apparent.  [5]  The  performance  evaluation  of  these 
networks  is,  therefore,  a  measure  of  the  system's  ability  to 
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meet  user  requirements. 

Adequate  performance  evaluation  tools  currently  do  not 
exist.  Therefore,  decision-makers  responsible  for  selecting 
new  systems  usually  rely  on  the  designer's  claims  as  to 
performance,  and  procure  systems  accordingly. 

3oth  the  civilian  and  military  communities  place  very 
heavy  demands  on  communication's  facilities  during  crisis 
situations.  Throughout  history  existing  systems  have  often 
not  been  sufficient  to  carry  such  communications  traffic. 
[Si 

The  civilian  community  shares  these  problems,  many 
networks  are  engineered  to  carry  mean  traffic  loads  and  are 
not  planned  for  crisis  contigencies .  The  commerlcal 
telephone  network,  for  Instance,  is  Inundated  with  traffic 
Christmas  and  Mother's  Cay,  severely  degrading  system 
performance.  The  disruntlve  affects  of  a  national  emergency 
on  all  types  of  automated  networks  can  only  be  imagined. 

In  the  Defense  Communications  Agency  (DCA),  work  is 
presently  under  way  to  develop  tools  for  evaluating  the 
performance  of  planned  computer  communication  networks,  '^hls 
effort  is  underway  because  development  of  these  expensive 
systems  by  "trial  and  error"  can  no  longer  be  afforded.  The 
necessity  to  have  confidence  in  the  system's  ability  to  meet 
design  specifications  before  production  is  essential,  since 
normal  federal  procurement  cycles  stretch  out  over  eight  to 
ten  years.  This  confidence  car.  be  insured  by  utilizing 
effective  performance  evaluation  tools. 


C.  TAXOMOVY 


K  great  deal  of  ambiguity  exists  in  the  jargon  of  the 
networking  field.  [?!  Therefore,  several  recurring  network 
descriptions  are  defined  in  this  chapter  to  provide  a 
consistent  vo''ahula  ry .  Using  these  definitions,  network 
issues  can  then  be  succinctly  conveyed  to  the  reader. 

1.  Networks 

The  term  "network"  conveys  the  concept  of 
Individualized  cells  and  a  degree  of  interconnectivity.  A 
network  exists  for  the  purpose  of  achieving  a  desired 
objective.  The  Individual  characteristics  of  networks  are 
related  to  network  topology,  hardware  configurations,  and 
software  control  features  designed  to  accommodate  the  user's 
requirements, 

2.  Computer  Communication  fietworks 

*  "co'^puter  communication  network”  is  a  system 
consisting  of  one  or  more  computers  and  terminals,  and  a 


communications 

subsystem 

which  connects 

them.  [?! 

The 

primary  purpose 

of  this 

network  is  to 

facilitate 

the 

efficient  flow  of  data,  and  provide  the  required  supportive 
processing  functions.  The  comm.uni  cat  ions  subsystem  consists 
of  transmission  facilities  and  associated  commur Ications 
processors.  Commurlcatlons  processors  are  computers 
dedicated  to  exclusively  handling  communications  tasks. 

The  classification  of  computer  commurication 
networks  often  centers  around  the  network  topology,  network 
connectivity,  switching  protocol  and  the  degree  of 


lipplerentatl on  of  systeni-wlfie  control  features. 

The  term  "centralized  computer  communication 
network"  is  used  to  define  a  networV-  that  possesses  a  hii^h 
degree  of  centralized  functions.  .'•nether  network 
classification,  "distributed  systems",  is  used  to  describe  a 
low  degree  of  centralized  functions. 

The  differences  between  centralized  computer 
communication  networks  and  distributed  systems  reveal 
themselves  in  the  degree  to  which  system  functions  are 
distributed.  There  are  no  concise  metrics  which  delineate 
the  exact  classification  of  a  network.  The  interpretation  is 
subjective . 

Further  elaboration  on  specific  advantages  and 
disadvantages  of  the  distribution  of  system  functions  and 
the  definition  of  distributable  functions  can  be  found  in 
CTSPFR  [6]. 

Centralized  computer  networks  essentially  formalize 
the  system  control  structure  into  pre-selected  system 
control  nodes.  These  nodes  contain  what  is  often  referred  to 
as  the  network  control  programs  (VCP).  The  NCP  can  control 
the  processing,  database  management  and  communications 
management  functions.  This  type  of  networking 
characteristically  has  a  low  degree  of  fault  tolerance 
because  network  direction  emlnates  from  only  one  node 
imposing  network  restrictions  should  this  node  be  damaged. 

Distributed  systems,  hewever,  are  typified  by  the 
distribution  of  system  management  functions.  Although  no 
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pure  distributed  systems  exist  In  reality,  the  term  is 
widely  used  to  Indicate  a  hl^h  decree  of  distributed 
functions  within  a  networlc.  This  "peer"  structure  acts  In  a 
cooperative  sense.  Pouting  algorithms,  for  example,  rely  on 
Infornatlcn  that  is  "coooerati vely"  passed  from  node  to 
neighboring  node,  thereby  deriving  Inf  ormatl  o^i ,  not  on  a 
global  basis  but  on  a  localized  one.  Distributed  systems 
have  a  high  degree  of  survivability  and  are,  therefore,  more 
fault  tolerant  than  centralized  computer  communication 
networks.  The  advantage  of  distributed  systems  Is,  however, 
partially  offset  by  the  Increased  "overhead"  necessary  to 
coordinate  svstem  functions. 

Z,  Further  Reading 

Numerous  terms  used  In  networking  contribute  to 
confusion  due  to  the  lack  of  an  Industry-wide  standardized 
taxonomy.  The  Intent  here  was  to  define  certain  keywords 
used  throughout  this  thesis.  Further  clarification  of 
system's  taxonomy,  although  Important,  Is  not  discussed. 
Taxonomlcal  studies  recommended  are  [2]  ,  [9]  and  [231 • 


D.  PFBFOHm/kNCF  PRIDICTION  AND  MCCFLING 

"Performance"  Is  defined  as  the  degree  to  which  the 
system  fulfills  user  requirements.  In  terms  of  networks, 
these  measures  are  often  determined  by  the  network's 
workload  capacity  or  throughput  In  the  sense  that  the 
network  can  first  perform  the  desired  functions  and  secondly 
perform  with  a  degree  of  timeliness.  [4] 


The  Ideal  means  of  neasurini?  network  neforirance  is  to 
extract  data  from  the  system  itself.  The  collection  of  data 
from  existing  networks  is  often  difficult.  The  performance 
testing  of  networks  under  heavy  traffic  loads  or  those 
operating  in  a  degraded  rode  is  a  sensitive  matter,  because 
interference  of  the  monitoring  equipment  can  not  he 
tolerated.  Networks  in  design  phases,  of  course,  can  not  he 
measured  and  require  alternative  assessment  methods. 

The  modeling  of  existing  and  planned  networks  has  he^'ome 
an  Important  component  of  performance  evaluation.  As  an 
added  benefit,  modeling  also  facilitates  the  understanding 
of  a  system's  design  and  interrelationships. 

The  modeling  process  can  follow  one  of  several  different 
techniques  or  a  combination  thereof.  The  primary  techniques 
are:  1)  mathematical  modeling  and  2)  simulation. 

mathematical  modeling  employs  theories  of  queuing  and 
flow  by  describing  certain  network  characteristics  in  sets 
of  equations.  The  process  is,  however,  comiplex  and  often 
assumes  away  critical  parameters.  The  primary  disadvantage 
with  mathematical  modeling  appears  to  be  just  this  problem 
of  assumptions.  Too  many  assumptions  impose  an  unacceptable 
degree  of  abstraction.  Although  the  validity  of  mathematical 
modeling  techniques  has  been  confirmed  [4l  .  the  methodology 
is  often  understandable  only  by  the  modeler. 

Simulation,  the  second  alternative,  leads  the  modeler  to 
numerous  techniques.  A  simulation  is  an  abstraction  of 
concepts  pertinent  to  the  problem  being  studied,  and  bpon 
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which  the  modeler  can  apply  varying  experimental  variables. 
The  model  simulates  only  these  features  the  modeler  feels 
are  relevant  to  the  problem.  Herein  lies  the  critical  dan?er 
of  simulation.  The  danger  may  best  be  expressed  by  the 
question,  Does  the  model  bear  relevancy  to  the  real  nroblem? 
[101 

The  major  problem  of  simulation,  as  well  as  analytical 
models,  is  therefore  the  validation  of  the  model.  Many 
simulation  experts  talk  in  terms  of  performance  reliability 
factors  but  fall  to  state  that  these  factors  may  be  Just 
derived  from  outputs  of  a  model,  and  the  closeness  of  the 
model  to  reality  may  or  may  not  be  substantiated. 

The  modeling  process  itself  consists  of  the  construction 
of  the  model,  followed  by  the  validation  of  the  model,  and 
finally  modifications  to  the  model  based  on  results  of  the 
validation  process. 

Once  the  model  has  been  defined,  simulations  are  run 
with  the  model  to  evaluate  network  behavior.  The  problem  is 
to  predict  peformance  of  real  networks  by  evaluating 
behavior  on  the  network  models.  The  simulations  then  provide 
a  means  by  which  network  design  deficiencies  can  be 
identified  and  corrected. 

Another  issue  in  simulation  analysis  is  the  area  of 
overdesign.  Simulations  should  indicate  those  systems 
components  that  do  not  add  to  the  capabilities  of  the 
network.  This  analysis  can  measure  the  device  utilization  of 
specific  components  within  the  network. 


20 


The  key  mea surenent  of  a  computer  communication  network 
is  the  network's  workload  capacity  or  throughput.  Throughput 
is  generally  measured  in  number  of  message  units  per  tine 


period,  and  provides  a  measure  of  effectiveness  and 
efficiency  of  the  system.  The  parameters  involved  in 
throughput  are:  l)  network  configuration  (topology),  2) 
network  control  algorithms,  and  3)  network  reliability. 

E.  SUMMATY 

A  solution  to  predicting  performance  in  systems  where 
the  collection  of  data  is  difficult  or  the  system  is  in 
design  stages,  is  to  build  a  model  of  the  system.  The  model 
could  then  be  tested  over  the  entire  sprectrum  of 
performance  specifications. 

The  goal  of  performance  evaluation  is  the  prediction  of 
the  degree  to'  which  the  system  fulfills  the  intended 
objectives.  The  major  concern  in  computer  communication 
networks  is  the  degree  to  which  the  network  can  uerfcrm  the 
task  and  the  degree  of  efficiency  with  which  the  task  is 
comoleted.  A  by-product  of  the  evaluation  should  be  the 
Ident if ica tlon  of  areas  of  over  and  under-design.  Once 
design  failures  have  been  identified,  design  tradeoff 
decisions  can  then  be  made.  This  process  of  performance 
analysis  is  aimed  at  optimizing  the  existing  or  pla'^ned 
network's  performance  and  ensuring  that  the  performance 
meets  the  contracted  user  requirements. 
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III.  MILIT<.P^  APPLICATIOWS  OF  !}ISTRI3UTFD  5YST?r"  TFCHNCIC;^? 

A.  IMTROCUCTIO!^ 

This  chapter  discusses  current  rilitary  progrars  and 
research  efforts  that  are  applying  the  concent  of  autor'ated 
netwcrlfs  to  tactical  missions.  It  is  written  to  ?ive  the 
reader  some  background  information  on  programs  and 
terminology.  With  this  background,  the  applicability  of  the 
simulations  described  in  later  chapters  will  be  clearer. 

B.  PA.CiC^T  SVITCHING 

The  transmission  of  computer  to  computer  digital 
messages  has  had  significant  impart  on  communications 
switching  techniques.  In  fact,  the  concept  of  packet 
switching  was  invented  to  a  large  extent  because  of  the 
unique  requirements  of  cornuter  based  systems.  Packet 
switching  was  designed  as  an  alternative  to  circuit 
switching. 

The  circuit  switching  technique  of  older  communications 
systems  is  a  method  of  establishing  a  route  for 
communications  traffic  whereby  a  complete  link  between  the 
calling  ard  receiving  station  is  set  up  and  melr.telned 
exclusively  for  the  exchange  of  those  two  station^.  The 
connection  is  maintained  until  one  of  the  stations  breaks 
off  transmission  or  reception.  A  technique  such  as  this 
tends  to  be  wasteful  in  ^computer  communications  because 
computer  communications  are  typically  "bursty"  in  nature* 


that  Is,  the  messages  are  very  short  in  duration  and  require 
fast  responses. 

Paclcet  switching  is  designed  to  tnalce  efficient  use  of  a 
ccTTunicat ions  channel  when  the  traffic  is  bursty.  fill  I” 
this  technique  m^ssae'??  are  divided  into  discrete  ’  naclcets .” 
A.  pacVet  is  a  block  of  information  containing  a  fixed  number 
of  hits.  Each  packet  contains  the  text  of  the  message  plus  a 
control  header.  The  header  contains  enough  information  (for 
example,  source,  destination,  routing  plan,  message  sequence 
number,  etc.)  to  guarantee  the  packet  will  arrive  at  the 
proper  destination.  In  addition,  there  will  usually  be  some 
checks  or  each  such  block,  so  that  any  switch  through  which 
the  packet  passes  may  exercise  some  degree  of  error  control. 

Eigure  1.  shows  a  typical  composition  of  a  packet  of 
information  hits.  This  particular  example  is  taken  from  a 
packet  radio  network.  [16] 

In  a  packet-switching  network,  the  packet  reuresents  the 
fundamental  unit  of  transportation.  One  message  may  be 
broken  into  several  packets  and  each  pa^'ket  may  be 
independently  routed  to  its  final  destination.  Of  course,  at 
the  destination  the  packets  must  be  re-assembled  in  the 
correct  order  to  reconstruct  the  original  message. 

Because  packets  of  the  same  message  can  be  se^t  by 
different  routes,  congestion  on  the  network  can  be 
decreased.  Each  packet  contains  its  own  control  information 
in  the  header,  and  there  are  no  lengthy  connection  and 
disconnect  times  as  in  the  case  of  circuit  switched  systems. 
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FIGURE  1  FORMAT  or  PRNET  PACKET  (PRCAP3) 


It  shpull  noted  that  messages  which  are  broken  into 
packets  are  only  meaningful  within  the  network.  When  packets 
are  passed  through  gateways  into  ether  packet-switched 
networks,  a  new  intra-net  level  of  protocol  is  required. 

C.  TH2  AT5P>meT 

Perhaps  the  best  known  example  in  the  military  of  a 
large  scale  distributed  system  is  the  ARPANET.  This  research 
effort  has  been  sponsored  by  the  Defense  Department's 
Advanced  Research  Projects  Agency  (ARPA'.  The  ARPANET  is  a 
non-secure,  packet-switched,  distributed  computer 
communication  network  which  links  together  the  computing 
facilities  at  universities  and  military  installations  across 
the  continental  United  States  and  reaches  overseas  to  Londor 
and  Hawaii . 

The  Justification  and  advantages  of  a  network  such  as 
the  ARPANET  are  summarized  in  the  following  ex''erpts  from 
the  text  Computer-Communication  Networks  written  in  1973: 
[11 

"Cr.e  of  the  most  successful  aspects  of  the  experiments 
in  the  use  of  time-shared  computer  systems  conducted  during 
the  past  decade  was  the  ability  to  share  computing  resources 
among  all  the  users  of  the  system.  Controlled  sharing  of 
data  and  software,  as  well  as  the  sharing  of  the 
time-sharing  system  hardware,  has  led  to  much  higher 
proarammlng  productivity  and  better  overall  utilization  of 
the  computing  and  user  resources." 
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Even  In  these  tlr'e-sharing  systenst  however,  the  system 
capacity  was  simply  not  large  enough  to  oerforr  all  the 
storage  reoulrements  and  computing  potential  that  a  derision 
maker  required.  There  was  the  lack  of  a  large  enough 
corrmunity  (critical  mass  phenomenor)  in  a  single  anpllcation 
area.  Although  it  Is  possible  to  physically  transfer 
programs  or  data  from  one  community  to  another,  this  causes 
restrictions  In  language  standards  and  hardware  systems. 

To  quote  further;  ”a  viable  alternative  to  program 
transferability,  while  permitting  full  resource  sharing,  is 
to  orovlde  a  cormuni ca ti ons  system  that  will  permit  users  to 
access  reoiote  programs  or  data  as  if  they  were  lo'^al  users 
to  that  system.  In  addition,  it  should  be  possible  for  a 
user  to  create  a  program  on  his  local  machine  that  could 
make  use  of  existing  programs  in  the  network  as  if  they  were 
available  on  his  l0''al  machine,  father  than  trying  to  rove 
the  programs  from  machine  to  machine,  the  network  would 
allow  the  user  or  his  program  to  communicate  with  a  machine 
on  which  the  program'  already  executes.  If  enough  machines 
can  be  connected  into  such  a  network,  the  total  community  in 
any  particular  application  area  would  be  sufficiently  large 
enough  to  reach  critical  mass."  fl"' 

This,  essentially,  is  the  rationale  for  military 
applications  of  the  AHPAN'ET  research,  both  on  the  strategic 
and  tactical  level. 
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D.  r'!LIT»P.Y  APPLICATIONS 

Ve  hav®  spoken  In  a  previous  chapter  of  the  tremendous 
a^rowth  of  automated  data  systems.  Tactical  data  systems,  be 
they  for  the  purpose  of  intalliifpnce ,  pescnnel  nar.agemen  t , 
fire  direction,  logistics,  or  command  and  control,  tend  to 
be  engineered  and  developed  separately  without  the 
consideration  of  total  military  mission.  Nevertheless,  the 
battlefield  commander  cannot  mahe  wise  decisions  based  on 
input  from  Just  one  of  these  systems.  There  is  a  good  deal 
of  interplay  between  all  of  these  functional  areas,  and  all 
must  be  considered. 

One  single  tactical  comnuter  ii^  a  single  comrard  post 
could  not  be  built  to  store  and  update  all  of  the  data 
represented  in  the  combined  systems.  And  if  it  could,  such 
centralization  would  be  unwise.  The  answer  seems  to  be  a 
distributed  comouter  networir  built  to  interconnect  end  share 
the  resources  of  the  individual  systems.  This  means 
overlaying  an  ARP*.NPT-llke  architecture  onto  a  series  of 
distributed  processors  on  the  battlefield. 

The  APPANPT  distributed  architecture  #?ecgraphlcally 
separates  data  bases  and  computing  resources.  This 
distribution  tends  to  decentralize  a  network,  moving  from  a 
traditional  hierarchical  configuration  to  a  grid  or 
mesh-type  confleurarl on.  Such  decentralization  is  important 
to  overall  system  survivability  end  reliability.  A  network 
architecture  such  as  this  is  capable  of  remaining 
operatloral  if  one  or  more  nodes  is  rendered 


nor.-operat  lonal .  The  archlte<'ture ,  combined  with  packet 
switching*  technolopy,  allows  for  sufficient  alternate 
routing  capability  to  ensure  a  robust  system.  It  offers 
sienificant  improverrent  over  some  of  the  present  "backbone” 
(hierarchical)  systems  in  which  the  failure  of  ore  node 
alon?  the  chain  would  completely  disrupt  communications  on 
the  entire  network. 

It  is  obvious  that  a  mobile  and  tactical  application  of 
APP^NTT  technology  would  offer  new  challenges  to  system 
engineering,  "^ost  apparent  is  the  fact  that  APPANt)?  sites 
are  interconnected  by  high  speed,  low-error,  fixed  telephone 
circuits.  This  kind  of  interconnectivity  is  not  possible  on 
a  dynamic  battlefield.  The  only  other  alternative  is  to 
utilize  mobile,  digital  radio  equipment  to  achieve 
connectivity. 

E.  THE  ALOHA  STSTEf- 

Several  years  eeo  researchers  at  the  University  of 
Hawaii  began  work  on  such  hardware.  Because  there  was  an 
unusually  hl^h  error  rate  on  the  local  telephone  lines, 
remote  users  of  the  university  computer  were  unable  to 
effectively  communicate  with  the  computing  facility.  This 
led  to  a  research  program  to  investigate  the  use  of  burst 
radio  transmission  in  place  of  telephone  lines  for 
error-free,  llne-of-slght  communications  to  the  computer 
center.  The  resulting  effort  became  known  as  the  Aloha 
System,  a  series  of  packet-switched,  ultra-high  frequency 
(UHF),  radio  terminals.  [13] 
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The  *loha  System  Is  essentially  a  broadcast, 
multi-access  network.  The  "broadcast  ''apabllity”  of  a  radio 
channel  implies  that  a  signal  «;enerated  by  a  radio 
transmitter  may  be  received  over  a  wide  area  by  any  number 
of  receivers,  '‘(^ulti -access  capability"  of  a  radio  channel 
means  that  any  number  of  users  may  transmit  ever  a  common 
channel.  Hence,  all  users  within  llne-of-slght  of  one 
another  form  a  network  that  is  completely  connected. 
Independent  of  the  number  of  users. 

F.  PACKFT  RADIO  INTROrUCTICH 

Research  done  at  the  University  of  Hawaii  led  to  the 
development  of  packet  radio.  Packet  Radio  extends  the  Aloha 
System  to  military  uses.  The  goals  of  military  experimental 
versions  of  a  packet  radio  system  differ  from  those  of  the 
orlfflnal  Aloha  net  in  the  following  areas:  [17] 


(1)  Distributed 

control 

of  the  network 

management 

functions  should  be 

provided 

among  multiple 

stations  for 

reliability,  and  the 

use  of  a 

netted  array 

of  possibly 

redundant  repeaters 

for  area 

coverage  as  w 

ell  as  for 

reliability  should  be  included. 

(2)  The  system  should  use  suread-spectrum  signaling  for 
coexlstarce  with  other  possibly  different  systems  in  the 
same  band  and  for  ar.tljam  protection.  Surface  acoustic  wave 
technology  has  become  a  viable  current  choice  for  mat''hed 
filtering  in  the  receiver. 

(7)  The  provision  of  authentlcalon  and  anti-deception 
mechanisms  is  required. 
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^4)  System  protcrols  should  he  incorporated  that  oerform 
network  mapping  to  locate  and  label  repeaters,  route 
determina t ion  and  resource  allocation,  remote  dehugeins,  and 
other  distributed  network  functions. 

f5)  The  use  of  various  implementation  techniques  to 
provide  efficient  onerational  eouiprent  such  as  repeater 
power  shutdown  except  while  processing  packets  should  be 
included . 

because  packet  radios  operate  within  a  broadcast 
network,  and  all  the  network  radios  use  a  common  frequency 
band  (1712-1653  ) ,  tnis  technology  has  some  favorable 
implications  for  freouency  management  and  frequency 
conservation.  Accordln?  to  current  military  doctrine,  the 
frequency  spectrum  is  allocated  roughly  in  accordance  with 
each  user's  stated  requirement.  In  an  Army  or  h'arlne 
Eivision  this  results  in  a  frequency  management  problem  of 
too  many  nets  requiring  too  few  frequencies  and  a  constant 
threat  of  degraded  communications  due  to  mutual  inteference 
problems.  Once  a  frequency  is  allocated  for  a  particular 
mission,  it  is  not  available  for  use  by  others  in  the  same 
area . 

This  might  be  an  effective  management  technique  if  each 
assigned  band  were  actually  used  most  of  the  time.  In 
practice  this  Is  not  usually  the  case,  and  much  of  the 
frequency  spectrum  is  idle  (not  engaged  in  carrying 
traffic ) . 
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A  broadcast  network  In  which  a  number  of  users  share  a 
common  broad  frequency  band  offers  improvement  to  this 
situation.  The  limited  frequency  suectrur  could  be  used  more 
efficiently  if  (1)  the  shared  frequency  band  was  wide  enough 
to  allow  all  users  to  transmit  required  traffic,  (2^  a 
channel  access  scheme  was  defined  such  that  all  users  could 
access  the  channel  when  needed  while  at  the  same  time 
allowing  little  or  no  mutual  interference,  and  (3)  the 
channel  usage  was  high  enough  to  ensure  mirimum  empty  time 
when  the  channel  was  not  in  use. 

5.  CHAMNFL  ACCTSS  SCSIMFS 

One  primary  means  of  categorizing  radio  broadcast 
systems  is  the  method  e^'ployed  for  channel  access.  As 
mentioned  earlier,  packet  communications  have  found 
important  applications  in  ground~based  radio  information 
distribution,  and  in  this  situation'  there  exists  a  common 
broadcast  channel  that  is  available  and  shared  by  a 
multiplicity  of  users.  Because  these  users  demand  access  to 
the  channel  at  unpredictable  times,  some  access  scheme  must 
be  introduced  to  coordinate  their  use  of  the  channel  in  a 
way  which  prevents  degradations  and  mutual  interference. 

A  large  number  of  channel  access  ideas  have  been 
invented,  analyzed  and  described  in  current  literature.  For 
a  summary  of  these  schemes,  see  [14].  All  of  tuese  sch<»mes, 
however,  mirht  be  placed  In  one  of  three  broad  categories. 
[15]  Fach  category  has  its  own  advantages  and  costs. 


1«  Category  I 


The  first  catej^ory  Involves  randorr  access  contention 
scherres  whereby  little  or  no  control  is  exerted  on  the  users 
in  ac^'essing  the  channel.  This  results  in  the  occasional 
collision  of  packets  on  the  air.  \  collision  iTplies  that  at 
least  one  colliding  packet  is  unintelligible  and  that 
channel  usability  for  the  time  of  the  collision  ray  be  lost. 
Access  schemes  which  fall  into  this  first  category  are  the 
pure  Aloha,  the  slotted  Aloha,  and  to  ?  lesser  extent. 
Carrier  S“rse  rultlnle  Access.  These  are  the  access  methods 
used  by  packet  radio  systems. 

To  better  understand  rac.doT  access  contention 
schemes,  consider  the  example  shown  in  Figure  2.  There  are 
sore  number  of  users,  each  of  which  transmits  sore  number  of 
packets  of  time  duration  *‘tau’*  at  random  times.  Line  four, 
labeled  indicates  the  total  traffic  that  ell  the  users 
attempt  to  send  in  a  fixed  time. 

In  this  example  all  traffic  is  able  to  be 
transmitted  without  conflict  except  for  the  collision 
indicated  by  the  hashed  area.  These  two  packets  (F-l  and 
K-1)  ray  both  be  unrecognizable  to  the  receiving  station  (at 
least  o^'e  will  be  unreadable)  and  both  could  require 
retransmission. 

In  the  ncn-slotted  Aloha  random  access  technique, 
packets  are  transmitted  as  soon  as  they  reach  the  ten  cf  the 
transmit  queue  at  the  radio.  No  consideration  is  m^ade  of 
current  channel  activity.  Therefore,  they  risk’  collision 
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with  other  TJackets  on  the  air. 


In  the  slotted  Aloha  rethod,  time  is  hro’cen  into 
discrete  quantities  equal  to  the  raxinuir  time  of  pronagaticr. 
within  the  network.  Users  are  restricted  to  transmission 
only  at  the  heginning  of  each  time  slot.  Again,  collisions 
tray  he  frequent. 

In  the  carrier-sense  mode,  the  radios  listen  before 
they  talk  and  thereby  reduce  the  risk  of  packet  collisions. 
The  radio  senses  the  state  of  the  channel  before 
transmitting.  If  the  channel  is  occupied,  the  radio  waits  a 
random  amount  of  tire  and  senses  the  state  of  the  channel 
again  before  attempting  to  transmit. 

An  Important  measure  of  peformance  for  evaluating 
these  random  access  techniques  is  "throughput.”  Throughput 
in  packet  radio  technology  is  defined  slightly  differently 
than  the  definition  given  in  Chapter  II.  Here  it  is  defined 
as  the  percentage  of  time  that  the  channel  is  actually 
occupied  by  useful  traffic.  Or,  to  put  it  another  way,  it  is 
the  message  density  on  the  channel.  Is  the  chancel  carrying 
useful  traffic  (non-colliding  packets)  most  of  the  time,  or 
is  there  a  lot  of  time  wasted  between  packets  when  the 
channel  is  empty? 

Figures  3  and  4  show  how  throughput  is  calculated  in 
both  techniques. 
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Figure  4 


It  should  he  obvious  that  throughput  is  higher  in 
the  carrier-sense  mode  due  to  the  decreased  number  of 
collisions.  In  fact,  analysis  has  shown  that  the  maxinum 
throughput  possible  with  the  non-slotted  Aloha  method  is 
approximately  l/2e  or  18.4%.  Throughput  in  the  slotted  Aloha 
method  is  twice  as  high  as  the  non-slotted  method  (36%). 
Throughputs  as  high  as  .80  to  .90  have  been  obtained  using 
the  carrier-sense  mode  for  cases  in  which  the  channel 
propagation  time  is  small  compared  to  message  duration.  Toth 
of  these  methods  are  classified  as  asynchronous. 

Another  important  measure  of  nefornance  for 
distributed  computer  systems  is  a  low  delay  time.  This  means 
that  queries  and  responses  between  the  system  and  the  user 
take  a  minimum  amount  of  waiting  time.  A  short  delay  time  is 
important  when  there  are  many  interarti’^e  users  on  the  ret. 
Typically,  in  order  to  decrease  delay  time  packet  length  is 
shortened.  Long  packet  lengths,  however,  are  necessary  to 
increase  throughput,  shorten  queue  leneths  and  decrease 
processing  overhead  per  bit. 

On  the  battlefield,  calls  for  fire  from  a  forward 
observer  would  typically  be  short  messages  requiring  a  fast 
response,  whereas,  intelligence  summaries  are  normally 
several  pages  long  and  require  no  reply.  If  both  types  of 
messages  are  carried  by  the  same  communications  chancel,  one 
can  readily  understand  why  there  are  tradeoffs  between 
throughput  and  delay  time. 
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2.  Category  II 

At  the  opposite  extreire  of  categories  of  radio 
channel  access  methods,  there  are  s  ch  ernes  vfhi  ch  use 
completely  static  reservation  access  m.ethcds.  These  schemes 
pre-assign  capacity  to  users  and  effectively  create 
"dedicated"  as  opposed  to  multi-access  charnels.  Such 
schemes  as  Time  Eivision  Multiple  Access  (TDMA),  Frequency 
Division  (Multiple  Access  (FEMA),  and  Code  Division  Multiple 
Access  (CDMA)  fall  Irto  this  category.  The  Joint  "'actical 
Information  Eistrihution  System  (JTIES),  Phase  I,  and  the 
U,S.  Marine  Corps  Position  Location  Reporting  Syste"-  (?L?S) 
use  the  TEMA  scheme  in  which  time  is  hrolcen  down  into 
discrete  intervals.  The  largest  tine  cycle  (called  an 
"epoch"  in  JTIES)  is  divided  into  thousands  of  smaller  time 
slots  or  windows.  Each  user  on  the  broadcast  network  is 
assigned  one  or  many  time  slots  in  which  he  can  transmit 
messages.  After  the  passage  of  the  cyclic  time  oeriod  his 
time  slot  again  appears  and  he  can  transmit  again.  This 
technique,  obviously,  is  highly  dependent  upon  all  users 
maintaining  accurate  time  synchrorizaticn.  The  FEMA  and  CEMA 
schemes  have  also  been  developed  to  statically  assign  each 
user  a  fixed  portion  of  the  channel  according  to  a  unique 
frequency  or  code  respectively.  Here  the  problem  is  that  a 
bursty  user  will  often  not  use  his  preassigned  capacity,  in 
which  case  it  is  wasted,  iihen  a  user  is  idle  his  portion  of 
the  channel  cannot  be  used  by  other  stations  with  traffic. 


3 ♦  Category  III 


Between  these  two  extremes  are  the  dyraric 
reservation  systems  which  only  assign  channel  capacity  to  a 
user  when  he  has  data  to  send.  In  these  schemes  a  certain 
portion  of  th“  channel  is  set  aside  in  which  to  dynamically 
schedule  transmission  times.  Several  schemes  fall  into  this 
category.  In  a  Polling  scheme  the  user  waits  passively  to  be 
asked  if  he  has  data  to  send.  In  an  active  reservation 
scheme  the  user  asks  for  capacity  when  he  needs  it.  In  the 
Mini-Slotted  Alternating  Priority  scheme  a  token  Is  passed 
among  numbered  users  in  a  prearranged  sequence,  giving  each 
permission  to  transmit  when  he  receives  a  token.  The  cost  of 
these  schemes  is  the  overhead  required  to  implement  the 
dynamic  reservations. 

The  following  Figure  5.  summarizes  the  costs  of 
these  three  categories.  Cl5] 

The  Cost  of  Distributed  Hesources 


Access  Collisions  Control  Idle 

Method  Overhead  Capacity 


Random  Access  Contention 
Dynamic  Reservation 
Fixed  Allocation 


yes 

no 

no 

no 

yes 

no 

no 

no 
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H.  CUT>RT.NT  PROGHAhS 


As  was  previously  mentioned,  before  lar^e  scale 
distributed  data  systems  car  be  introdu  .ed  t''  a  mobile 
battlefield,  higher  capacity  •'omnunications  hardware  is 
required.  The  U.S.  Army  is  working  on  two  programs  to  Teet 
this  requirement.  The  two  systems  under  development  are  the 
PLRS/JTIDS  hybrid  and  packet  radio. 

An  Army  Letter  of  Agreement  [25]  which  addresses  the 
need  for  these  systems  reads:  "There  is  an  urgent  need  for 
communications  capable  of  supporting  existing  and  programed 
automated  systems  for  Air  Defense,  Field  Artillery, 
Intelligence,  and  Command  and  Control.  Characteristics  of 
machlce-to-machine  communications,  coupled  with  the  need  for 
fast  reaction  times  and  a  high  degree  of  mobility,  result  in 
a  requirement  for  a  specialized  distributed  data 
communications  system.  Vithout  this  data  comm.unicatlons 
improvement,  highly  sophisticated  and  highly  effective 
weapon  systems  fielded  in  the  early  19BZ's  will  not  operate 
to  full  potential." 

In  further  describing  present  communications  systems 
this  document  speaks  of  existing  equipment  as  being 
"technologically  old,  generally  manually  connected,  too 
large  and  Immobile  (multichannel),  and  requiring  intensive 
maintenance  and  logistical  support."  "The  current 
communication  system  cannot,  without  the  addition  of  a 
digital  data  communications  capability,  meet  the  demand 
Imposed  by  the  emergence  of  automated  systems  in  the  early 


1980 's 


The  precise  extent  of  this  communications  shortfall  is  a 
matter  of  intense  study  b/  the  Integrated  Tactical 
Communications  Study  (INTACS)  Update  Study  effort. 

The  PLHS/JTIES  hybrid  offers  a  solution  to  this  problem 
in  the  mid-1980's.  Packet  radio,  also,  is  a  promising 
technology  to  satisfy  future  tactical  data  distribution 
missions.  Its  development  schedule,  however,  effectively 
eliminates  it  as  a  short  term  candidate. 

1.  PL5S/JTIES  Hybrid 

A  detailed  description  of  the  PLPS/JTIDS  hybrid  is 
not  possible  here.  Briefly  stated,  however,  the  system  is  a 
computer  based  system  which  provides  real  time,  secure  data 
communications,  and  position  location  and  reporting 
information  for  tactical  forces.  It  combines  desirable 
features  of  both  the  PLRS  an  the  JTIES  systems,  using 
modified  equipment  from  both  systems.  This  system  is  planned 
for  introduction  to  the  field  by  1966. 

In  addition  tc  work  being  done  on  the  PLRS/JTIDS 
hybrid,  the  Army  is  monitoring  or  participating  in  some 
interesting  tests  with  packet  radio,  described  in  the 
following  sections. 

2.  San  Francisco  Bay  Experimental  Packet  Radio  Metwork 

The  current  experimental  packet  radio  network  being 

supervised  by  SRI  International  is  located  in  the  San 
Francisco  Bay  area  and  has  been  operational  ‘^Ince  July, 
1976.  Figure  6  [16]  shows  a  map  of  the  network  sites. 
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fli'iUHl  fi  1  OCATlON  or  MAJOR  PLEWcNi  IS  01  Tl  lE  PACKET  RAI'IO  TES18E0 


There  are  two  station  P9U's  located  at  the  Menlo  Part  site. 
Each  station  has  an  associated  PEP-11  computer  attached.  The 
network  has  four  fixed  repeater  sites  spread  over  the  area 
and  a  variable  number  of  packet  radio  user  terminals 
(typically  four  to  six).  There  are  two  vehicular  packet 
radio  terminals.  These  mobile  terminals  are  an  important 
aspect  of  the  network,  and  a  hand-off  of  a  mobile  terminal 
from  one  repeater  to  another  is  frequently  exercised. 

3.  The  Fort  Bragg  Test  Bed 

The  U.S.  Army  has  also  recently  set  up  a  test  bed 
for  the  evaluation  of  Packet  Radio  at  Ft.  Bragg,  North 
Carolina.  ARPA  is  sponsoring  this  effort,  known  as  the  Army 
Data  Distribution  System  (ADDS).  ’’The  purpose  of  the  AEDS 
experiment  is  to  develop  an  environment  in  the  resident 
XVIII  Airborne  Corps  to  permit  user  participation  in  the 
development,  refinement  and  evaluation  of  innovative 
concepts  for  deployment  of  distributed  date  in  support  of 
future  tactical  Army  data  distribution  requirements.’  [IT] 

In  this  multi-phased  experiment.  Ft.  Rrage  is 
experiencing  a  step-by-step  build  up  of  resources.  The  first 
phase  of  the  experiment  began  in  January,  1979.  Three 
computer  terminals,  a  network  processor  (called  a 
TIP-Terminal  Interface  Processor)  arl  a  host  computer  were 
Installed  at  Ft.  ’^ragg  and  connected  via  commercial 
telephone  lines  into  the  ARPANET.  After  installation, 
operator  training  began  in  1-2  day  courses. 
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The  second  phase  began  In  April ,  1379  and  the  number 
of  terminals  was  increased  to  fifty.  The  training  in  these 
phases  aco.uainted  operators  of  all  ranks  with  the  basic 
preprogrammed  capabilities  of  the  AP.PANIT  including 
electronic  mall,  file  management,  directory  maintenance, 
text  editing,  and  printing.  More  specific  applications 
geared  to  tactical  information  flow  requirements  are  also 
being  tested  in  garrison. 

Phase  III  of  the  ADDS  experiment  is  currently  going 
on  and  Involves  the  Introduction  of  Packet  Padio  into  the 
testbed.  The  PP  network  at  ?t.  Bragg  will  eventually  grow  to 
approximately  22  radios  and  2  control  stations.  Initially, 
the  radios  are  being  employed  in  garrison  to  replace 
hard-wired  connections.  In  the  future,  they  will  be  deployed 
to  the  field  in  support  of  Corps  exercises. 

Packet  Hadic  is  expected  to  fullflll  at  least  two 
major  roles  in  the  Ft.  Bragg  testbed.  The  first  is  to 
determine  if  this  communications  technology  will  satisfy  the 
tactical  data  communications  requirements  of  a  corps  on  the 
battlefield.  In  this  role,  the  system  will  be  placed  into 
the  testbed  as  would  any  other  communications  system 
proposed  for  Army  use.  A  second  role  is  to  provide  a  broad 
band  communications  channel  for  other  systems  under 
development  which  requires  a  data  transfer  capability.  In 
this  role  the  PRNST  would  provide  communications  for  TACFIKF 
or  some  other  Intelligence  or  air  defense  system  while 
maintaining  its  ARPANFT  connectivity  as  well.  [17] 


Reports  from  the  It.  Bragg  testhed  indicate  that  the 
X^III  Airborne  Corps  personnel  have  rapidly  and 
enthusiastically  adapted  to  the  computer  based 
communications  technology.  It  is  possible  that  the  use  of 
this  data  distribution  technology  can  become  as  routine  to 
commanders  and  staffs  as  voice  communications  are  today. 
[171 

In  any  case,  the  Ft.  Bragg  experiment  represents  an 
Innovative  and  unique  approach  to  investigating  advanced 
concepts  In  Army  doctrine  and  tactics.  The  testbed  is  a 
departure  from  traditional  Army  tests  designed  to  arrive  at 
production  decisions,  and  is  being  driven  by  the  urgent  need 
for  increased  tactical  data  distribution  capability. 

I.  FUTURE  IMPLICATIONS 

Is  is  not  an  exageratlon  to  say  that  these  are  very 
crucial  days  for  the  U.S.  military.  Resource  investment 
decisions  are  more  important  now  than  ever  before  in 
history,  and  the  consequences  of  bad  Judgement  offer 
potential  for  great  loss.  Some  would  argue  that  an 
ever-increasing  dependency  upon  technology  by  the  armed 
forces  is  a  very  dangerous  trend.  Nevertheless,  it  is 
apparent  that  electronics  and  telecommunications  advances 
are  beginning  to  have  significant  impact  upon  strategy. 
Chapter  One  of  the  U.S.  Army  Combat  Communications  Field 
Manual  is  entitled  "Command,  Control,  and  Communications 
(C3)”.  A  quotation  from  this  document  helps  to  stress  the 
intensity  of  future  battles  and  the  necessity  of  accurate 


and  realistic  plannlc<r  for  that  engai^ement.  [24] 

"The  U.S.  Army  has  arrived  at  a  point  where  technology 
and  reality  have  outrun  our  old  tactics  on  fighting  and  left 
them  in  the  dust.  Ve  have  come  to  the  shocking  realization 
that  the  old  way  of  doing  things  will  not  work  any  rore." 

”a  good  example  of  the  change  in  combat  reality  facing 
today's  soldier  is  an  often  used  statistic  from  the 
Arab-Israeli  War  of  1973.  In  20  days,  over  1700  tarks  were 
destroyed  between  the  two  sides.  That's  as  many  tanks  as 
there  are  in  five  U.S.  armored  divisions.  Technology  has 
Improved  the  weapons  systems  to  the  point  where  a  tank  has  a 
50-50  chance  of  being  hit  by  the  first  round  fired  at  it.  Ve 
must  retool  our  tactics  to  meet  the  reality  of  the  next 
fight ." 

Certainly  the  capabilities  of  an  army's  command  and 
control  system  has  a  great  influence  upon  the  capability  of 
the  force  as  a  whole.  The  trends  and  technolcgies  described 
in  this  chapter  have  far-reaching  implications  to  doctrine 
and  pose  some  problems  that  have  yet  to  be  solved.  It  is 
beyond  the  scope  of  this  thesis  to  dwell  on  these 
implications  in  great  length.  A  listing  of  the  m^ost  obvious 
ones,  however,  is  interesting  and  instructive. 

1.  Chain  of  Command 

First  of  all,  how  will  distributed  systems  change  or 
affect  the  traditional  chair,  of  command  structure?  C3  system 
architectures  typically  reflect  the  chain  of  command  within 
an  organization,  and  this  results  in  most  C3  systems  being 
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very  hierarchical  in  structure.  Distributed  systems  tend  to 
be  grid-like,  peer  structures.  In  a  distributed  system,  is 
it  advantageous  to  practice  the  concept  of  "slcip  echelon" 
reporting,  in  which  certain  levels  of  command  may  send 
traffic  directly  to  the  highest  or  lowest  elements  without 
intermediate  "information  only"  stops?  Certainly  this  would 
tend  to  decrease  the  time  of  delivery  of  messages  and  would 
avoid  congestion  on  the  network.  Put  can  the  intermediate 
cornanders  afford  to  miss  information  that  might  prove  to  be 
critical  or  essential?  'j»hat  affect  do  distributed 
architectures  have  on  the  traditional  role  of  communications 
centers  and  message  centers?  Would  the  requirement  for  these 
functions  be  eliminated?  Waen  the  network  is  organized  Ir  a 
peer  structure,  how  are  protocols  designed  in  order  to 
preserve  a  "priority"  system  to  message  traffic?  These  are 
questions  that  remain  to  be  answered. 

2.  Network  Management 

Next,  a  very  important  question  is  the  manner  in 
which  network  control  and  data  base  management  is  exercised. 
Although  distributed  systems  appear  outwardly  to  be 
decentralized,  a  static,  inflexible  network  control  design 
would  make  the  so-called  "distributed"  system  as  vulnerable 
as  its  hierarchical  predecessor.  Clearly  the  responsibility 
for  network  management  and  lata  base  updating  must  be 
transferable  within  the  network,  and  the  capability  should 
be  shared  by  more  than  one  station.  There  is  a  tradeoff 
reached,  however,  between  one  station  and  multi-station 


operation.  The  more  nodes  there  are  which  can  exercise 


network  control,  the  more  vulnerable  the  entire  network 
becomes  to  spoofing  and  deception  techniq3ies,  and  the  more 
costly  and  complex  it  becomes.  It  is  interesting  to  note 
also,  that  some  of  the  hardest  decisions  and  longest  delays 
in  the  JTIES  program  have  dealt  with  this  question  of 
network  management. 

Z.  How  Much  Redundancy? 

In  addition  to  these  important  questions  one  must 
ask  also,  "How  much  redundancy  is  enough?"  Although 
distributed  networks  are  more  survivable  and  redundant,  what 
kind  of  back-up  systems  are  still  required?  Certainly  an 
Increased  dependency  upon  satellite  communications  in 
today's  world  has  decreased  the  investment  in  long-haul, 
high  frequency  (HP)  communications  systems.  Sore  have  argued 
with  convincing  reasoning  that  this  is  a  dangerous  position. 
It  is  generally  more  attractive  to  enelneers  and  planners  to 
Invent  and  employ  new  systems  rather  than  to  improve  the 
old.  Nevertheless,  it  is  necessary  to  retain  and  maintain 
older,  proven  hardware  as  back-up,  secondary  equipment.  The 
question  remains,  "How  much  is  enough?" 

4.  Propagation  Loss  Due  to  Higher  Frequency 

Jecause  of  the  congestion  existing  at  lower 
frequencies  and  the  high  bandwidth  requirements  of  new 
automated  systems,  new  communications  equipment  is  being 
designed  to  operate  at  very  high  carrier  frequencies.  This 
restricts  propagation  to  strictly  llne-of-slght  distances. 
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Vhile  this  situation  is  acceptable  in  ground-to-air  and 
ground-to-satelli  te  conrr.unlcations ,  it  poses  serious 
constraints  unon  ground-to-ground  mobile  communications, 
especially  in  rugged  or  forested  terrain.  The  amount  of 
propagation  loss  in  this  situation  is  highly  significant, 
and  the  utility  of  these  systems  has  yet  to  be  proven. 

5.  Management  Information  Systems 

It  was  mentioned  previously  that  the  development  of 
an  effective  Management  Information  System  (mis)  to 
Integrate  and  display  data  to  a  commander  and  his  staff  is  a 
formidable  task.  The  Army,  in  fact,  has  been  wrestling  with 
this  problem  for  over  twenty  years  while  attempting  to  field 
its  Tactical  Operations  System  (TOS,  which  is,  in  essence  a 
MIS).  After  that  amount  of  time,  one  questions  whether  such 
a  system  is  nearer  completion  now  than  it  was  in  1960. 

6.  Interoperability 

The  military  is  fast  finding  out  that 
interoperability  m.eans  much  more  than  mutually  compatible 
equipment.  It  also  means  compalabllity  of  procedures, 
software,  and  message  formats.  One  should  watch  closely  the 
continued  development  of  JTIDS  and  attempt  to  Judge  the 
success  cf  Joint  service  programs.  The  Interoperability 
requirement  tends  to  introduce  system  complexity  in  an 
attempt  to  make  the  system  ”all  things  to  all  people.”  Vhen 
one  moves  to  the  problem  of  interoperability  in  the  NATO 
environment,  the  question  again  becomes,  ”Eow  interoperable 
can  equipment  be  without  becoming  too  costly,  too  bulky  and 
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<;enerally  ineffective? 

7.  Voice  vs.  Data  Circuits 

Another  important  question  yet  to  he  resolved  is  the 
proner  trade-off  of  voice  and  data  circuits.  A^ain,  JTIBS 
can  he  the  case  in  point.  Sore  services  seer  to  he 
side-stepping  procurement  committments  partly  due  to  a  lack 
of  definition  of  system  capahility  in  this  area.  Although 
tactical  commanders  tend  to  prefer  voice  channels,  voice 
channels  require  an  enormously  greater  bandwidth  allocation 
than  data  channels.  If  a  commander  is  given  the  choice  of 
having  one  voice  channel  or  ten  data  channels  into  his 
command  post,  which  will  he  choose?  Which  should  he  choose? 
What  will  the  system  offer? 

8,  System  Cost 

Finally,  the  question  that  will  he  asked  most  often 
is  simply;  "E-ow  much  will  the  system  cost?”  Costs  are 
divided  into  at  least  four  categories.  There  are  hardware 
and  software  costs,  (it  is  common  knowledge  that  the  latter 
are  now  a  greater  consideration  than  the  former)  and  there 
are  initial  procurement  costs  and  life  cycle  costs. 

Included  in  these  costs  is  the  manpower  question.  Is 
it  realistic  to  think  that  as  systems  become  more  and  more 
highly  technical  that  the  personnel  who  fix,  operate  and 
manage  the  systems  will  be  better  educated  and  more 
professionally  competent? 


IV.  AN  INTRODUCTION  TO  PETRI-NETS 


A.  INTRODUCTION 

The  uurpose  of  this  chapter  Is  to  introduce  the  reader 
to  the  particular  modeling  tool  which  forms  the  basis  for 
this  research.  The  history  of  Petri-Nets  is  first  discussed. 
Then  an  explanation  of  how  Petri-Nets  work  is  presented. 
Eollowlne  some  simple  examples,  the  chapter  concludes  with  a 
brief  summary  of  the  strengths  and  weaknesses  of  this 
modeling  tool. 

3.  HISTORY 

The  Petri-Net  is  named  after  its  discoverer,  Carl  Adam 
Petri.  These  nets  were  developed  in  his  early  work  in  1962 
in  Germany.  They  soon  came  to  the  attention  of  Anatol  Rolt 
who  was  then  leading  an  Information  Systems  Theory  Project 
for  Applied  Data  Research,  Inc.  The  work  of  this  group 
eventually  led  to  the  theory  of  "systemics"  [5]  which  dealt 
with  the  representation  and  subsequent  analysis  of  systems 
and  their  behavior.  At  this  point  the  modern  formalism  and 
notation  of  Petri-Nets  was  introduced.  Holt  also 
demonstrated  the  usefulness  of  the  Petri-Net  model  in  the 
representation  of  systems  characterized  by  concurrent 
processes . 

Perhaps  the  single  largest  source  of  research  and 
literature  regarding  Petri-Nets  has  been  Project  MAC  at  the 
Massachusetts  Institute  of  Technology.  The  Petri-Net  model 
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was  Introduced  to  the  researchers  at  Project  MAC  due  to  the 
association  of  Holt's  group  tc  J.  Cennis'  Corrputatlon 
Structures  Group.  This  group  has  produced  several  PE.r 
thesis,  together  with  rany  reports  and  technical  remos 
dealing  with  Petri-Nets.  In  addition,  MIT  has  sponsored  two 
important  conferences  dealing  with  Petri-Nets.  The  first  was 
the  Project  MAC  Conference  on  Concurrent  Systems  and 
Parallel  Cotrputatlor.  held  at  Woods  Hole  in  1973.  The  second 
was  the  Conference  on  Petri-Nets  and  Related  Methods,  held 
at  MIT  in  1S75. 

This  worl:,  begun  at  MIT  and  continuing  at  other  centers 
in  the  United  States,  until  recently  tended  to  concentrate 
on  the  formal  or  mathematical  aspects  of  Petri-Nets.  This 
work  bears  resemblance  to  the  research  in  automata  theory. 
It  attempts  to  analyze  systems  by  representing  them  as 
Petri-Nets,  formally  manipulating  the  representation  in  such 
a  way  as  to  derive  information  relating  to  the  behavior  of 
the  modeled  system.  Because  of  the  simplicity  and  power  of 
Petri-Nets,  they  are  excellent  tools  to  use  in  the  analysis 
of  concurrent  or  asynchronous  systems.  They  are  finding 
their  way  into  a  number  of  diverse  applications. 

Petri,  himself,  is  still  actively  researching,  expanding 
his  original  theory.  Els  extensions  have  led  to  a  form  of 
general  systems  theory  called  "net  theory".  Holt  Is 
continuing  his  research,  concentrating  on  system 
representation  and  analysis  of  the  formal  representations. 
[5] 


53 


C.  HOW  PET? I -N STS  WORK 

Simply  stated,  a  Petri-Net  is  a  model.  f'ore 
specifically,  it  is  an  abstract,  formal  model  that  analyzes 
the  flow  of  information  in  systems.  [5,19]  Petri-Nets  also 
describe  not  only  the  information  flow,  but  the  controls  and 
constraints  of  such  flow.  A  Petri-Net  graph  models  the 
static  structure  of  a  system  in  much  the  same  manner  as  a 
flowchart  models  the  structure  of  a  computer  program.  As  a 
modeling  tool,  Petri-Nets  are  especially  useful  in  modeling 
systems  that  exhibit  asynchronous  end  concurrent  activity. 

A  Petri-Net  consists  of  a  collection  of  "events"  and 
"conditions."  In  graphical  notation,  conditions  are 
conventionally  represented  by  circles  and  events  are 
represented  by  bars.  The  Petri-Net  is  given  structure  and 
the  capacity  for  interaction  by  connecting  events  and 
conditions  with  arrows. 

An  arrow  from  a  condition  to  an  event  signifies  an  input 
condition  to  that  event  and  implies  that  every  occurence  of 
the  event  terminates  the  "holding"  of  that  condition.  An 
arrow  from  an  event  to  a  condition  signifies  an  output 
condition,  and  in  this  case,  the  occurence  of  the  event 
commences  the  holding  of  the  output  condition.  The  graphic 
notation  for  a  condition  which  holds  is  the  marking  of  that 
condition  by  a  "token". 


The  behavior 

of  a 

system 

may 

be  thought 

of  as 

the 

occurence  of  events 

as  time 

progresses.  If 

all 

input 

conditions  to  an 

event 

hold , 

the 

event  can 

occur . 

This 
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results  in  the  holdirg  of  the  event's  output  conltiors. 

Conditions  may  also  be  called  "places”  or  "nodes”  and 
events  may  also  be  referrea  to  as  "transitions."  In  the 
Petri-Net  model  of  a  system,  directed  arcs  ccnnect  places  to 
transitions  and  transitions  to  places. 

The  Petri-Net  is  first  given  a  particular  structure  of 
places  and  transitions,  and  then  it  is  "executed."  Ixecution 
is  governed  by  a  "firing”  protocol. 

Simply  stated,  a  transition  may  "fire"  (symbolizing  the 
occurence  of  an  event)  when  all  input  conditions  or  places 
into  that  transition  are  merited  with  a  tolcen.  'Vhen  all 
inputs  into  a  transition  are  marked,  the  transition  is  said 
to  be  "enabled".  Figure  7  shows  an  "enabled"  transltlcn. 

Execution  of  the  Petri-Net  involves  the  cyclic  checking 
of  all  transitions  once  during-  each  time  interval.  Each 
transition  that  is  found  to  be  enabled  is  fired,  and  tokens 
are  moved  from  the  input  places  of  the  enabled  transition  to 
the  output  places  of  that  transition.  This  procedure 
continues  for  a  set  number  of  iterations.  The  flow  of  tokens 
in  the  Petri-Net  thus  symbolizes  the  flow  of  information  or 
control  in  the  modeled  system. 

By  devising  special  methods  for  marking  the  number  of 
tokens  at  the  Petri-Nets  nodes,  the  system  status  can  be 
accurately  and  effectively  recorded.  The  state  of  the  system 
is  reflected  by  an  ordered  set  of  mark  status  indicators 
which  correspond  to  the  nodes  of  the  graph  structure. 


In  this  thesis  such  an  effective  marking  method  is 
uniquely  employed  to  give  the  viewer  an  accurate  snapshot  of 
network  status. 

Petri-Nets  have  rapidly  gained  acceptance  over  the  last 
decade.  Along  with  this  aceptance  has  been  the  furthering  of 
the  understanding  of  Petri-Net  properties. 

D.  A  SIKPLI  IXAKPLE 

Figures  6  through  11  show  the  various  states  of  a  simple 
Petri-Net  as  execution  occurs  during  four  successive  time 
intervals.  [21]  Notice  four  places  (?1,  P2,  P3,  and  P4)  and 
three  transitions  (TRl,  TR2,  and  Tn3).  The  directed  arcs 
denote  the  Interaction  and  relationships  between  input  and 
output  conditions.  For  instance,  TRl  will  become  enabled 
when  PI  (its  only  Input  condition)  is  marked  with  a  token. 
At  the  time  that  TF.l  fires,  the  token  will  be  removed  from 
its  input  condition  (PI)  and  placed  in  its  two  output 
conditions  (P2  and  ?4).  In  this  manner  flow  of  information 
or  control  is  followed  through  the  modeled  system.  Figure  e 
shows  the  network  at  time  =  0  with  one  token  placed  in  PI. 
Figures  9  through  11  depict  the  Petri-Net  as  it  continues 
execution  through  time  =  3. 

E.  AEFANTAGES  AND  DISADVANTAGES 

The  following  characteristics  of  Petri-Nets  were  found 
by  the  authors  to  be  strengths  when  using  this  particular 
modeling  tool  for  simulations  in  the  context  of  this 
research ; 
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A  MARKED  PETRI-NET  (TIME  =  O; 


A  MARKED  PETRI-NET  (TIME  »  1 


Figure  9 


A  MARKED  PETRI-NET  (TIME*2) 


Figure  10 


A  MARKED  PETRI-NET  (TIME  =  3) 


1,  The  rules  governing  Petri-Met  execution  are  slrrple 
and  easy  to  understand.  This  methodology  can  he  o.uickly 
grasped  hy  those  with  ncn-technical  hackgrcunds  who  would 


ordinarily  he  unahle  to  understand  ma thematical  or 
analytical  modeling.  Yet  Petrl-Kets  retain  a  nigh  degree  of 
precision  and  accuracy. 

2.  There  is  much  flexibility  inherent  in  the  Petri-Net 
graph  to  model  wide  ranges  of  complexity.  ?or  instance,  a 
model  can  be  further  abstracted  by  the  replacement  of  a 
complex  network  of  nodes  by  a  single  node. 

3.  There  is  a  large  degree  of  flexibility  Ir  assigning 
time  intervals  during  execution. 

4.  Petri-Nets  are  well-suited  to  "snapshot”  portrayal  of 
network  states.  This  advantage  is  Important  in  simulation 
languages  and  is  considered  a  strong  point  of  languages  such 
as  GPSS  and  SIMSCRIPT.  Petri-Nets  possess  this 
characteristic  by  nature. 

5.  Petri-Nets  nave  the  potential  for  a  wide  variety  of 
uses.  Basically,  any  process  that  can  be  flow-charted  could 
be  expressed  by  Petri-Nets.  Applications  could  include:  flow 
of  information  or  control  in  an  organization,  information 
flow  in  electronics  hardware,  representation  of  computer 
software  or,  procedures  and  stages  of  development  in  a 
management  program. 

e.  Petri-Nets  lend  themselves  well  to  computer  graphics 
display. 
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7.  Petri-Nets  are  very  effective  wher  nrodellrg 
concurrent,  asynchronous  activity  in  a  network  or  systeir. 

Certain  weaknesses  also  became  apparent  to  the  authors 
in  the  course  of  this  work.  They  are  listed  as  fellows: 

1.  Although  Petri-Nets  are  basically  simple  to 
understand,  the  small  building  blocks  of  a  network  soon 
become  exceedingly  large  and  complex  when  large  systems  are 
modeled.  The  input  files  to  some  of  the  larger  simulations 
in  this  paper  were  more  than  1430  lines  long.  These  networks 
must  be  drawn  on  paper  before  their  entry  into  the  computer, 
and  this  kind  of  effort  soon  becomes  very  tedious  and  prone 
to  error. 

2.  Petri-Nets  are  best  suited  to  concurrent, 
asynchronous  behavior.  When  non-concurrent,  synchronous 
behavior  in  a  system  is  modeled  the  Petri-Net  assumes  a 
large  amount  of  overhead. 

3.  The  fact  that  Petri-Nets  are  not  generally  well  known 
in  the  computer  communications  community  could  be  a 
disadvantage  when  the  user  wishes  to  prove  the  accuracy  of 
his  model. 

4.  The  fact  that  the  simulator  employed  in  this  thesis 
effort  was  deterministic  could  be  considered  either  as  an 
advantage  or  disadvantage  depending  upon  the  application. 
Many  simulations  have  value  because  of  their  stochastic 
nature.  Certain  classes  of  experiments,  however,  need  to  be 
understood  not  because  of  "chance”  happenings  but  because  of 
the  operation  of  the  "laws"  of  nature  working  upon  the 


elements  of  the  experiment. 

As  with  any  modeling  technique,  success  is  achieved 
through  the  modeler's  familiarity  with  the  modeling  tool. 
Petri-Nets  provide  an  excellent  means  to  model  those 
applications  best  characterized  by  their  asynchronous, 
concurrent  nature. 


<  I 

I 


.  PSTRI-NET  Sir^ULATIONS  OJ  CCMPUTIH  CCM^TNICATION  METVC5XS 


A.  intraeuction 

Once  the  basic  rules  of  Petri-i'Jet  execution  are 
understood,  it  Is  a  simple  matter  to  apply  these  rules  to  a 
copmunicat ions  network.  The  system  podelea  is  the  network 
Itself.  The  povement  of  tokens  in  the  Petri-Net  represent 
the  flow  of  information  within  the  system:  in  this  case, 
message  traffic  in  the  network.  Each  token  becomes  a 
discrete  amount  of  information  contained  within  the  message. 

The  places  in  the  Petri-Net  graph  are  used  to  represent 
coir.m.uni  cat  ions  nodes  within  the  network.  The  directed  arcs 
of  the  Petri-Net  graph  are  used  to  represent  the 
communications  links  or  channels  which  interconnect  the 
nodes.  The  transitions  between  nodes  indicate  the 
availability  of  the  channel  to  carry  traffic.  If  the 
transition  is  enabled,  the  channel  is  clear,  arl  the  message 
is  relayed  from  input  node  to  output  node. 

The  careful  structuring  of  the  Petri-Net  graph  imposes 
upon  the  modeled  system  a  variety  of  network  protocols.  An 
advantage  of  using  Petri-Nets  for  simulation  purposes  is 
that  the  logic  and  protocol  of  the  system  are  entirely 
contained  in  the  structure  of  the  Petri-Net  graph  rather 
than  in  a  complicated  mathematical  algorithm  within 
simulation  software. 
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B.  TYPTS  0?  NODES 

The  graphical  output  of  the  simulation  attaches 
sienificance  to  the  shape  of  the  nodes  displayed  to  the 
screen  to  facilitate  recognition  and  interpretation.  The 
experimental  packet  radio  network  in  the  San  Francisco  Fay 
area  defines  three  primary  types  of  nodes:  terminals, 
stations,  and  repeaters.  A  terminal  is  a  user  node  at  which 
traffic  is  inputted  or  to  which  traffic  is  destined.  It 
could  be  a  fully  automatic  sensor,  a  handheld  device,  or  a 
keyboard  with  GET;  but  a  terminal  is  a  place  where  users 
connect  to  the  network.  The  station  is  the  noae  at  which 
network  control  is  exercised.  The  station  typically  keeps 
network  statistics,  monitors  flow  and  congestion  control, 
assigns  routing,  and  performs  data  base  management  for  the 
system.  It  is  a  terminal  with  increased  processing 
capability  usually  provided  by  an  attached  mini-computer. 
The  repeaters  are  stand-alone  devices  placed  in  numerous, 
dispersed  positions  throughout  the  network  to  act  as  relay 
sites.  Repeaters  do  not  act  as  origins  or  destinations  of 
traffic,  but  they  serve  the  purpose  of  extending  the 
geographical  range  of  the  network  beyond  a  typical 
llne-of-sight  distance. 

While  all  networks  do  not  use  this  identical 
terminology,  these  three  functional  nodes  summarize  the 
requirements  of  communication  hardware  in  most  networks.  In 
the  simulations  in  this  thesis,  three  types  of  figures  and 
labels  represent  the  functions  of  nodes  as  described  above. 
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C.  A  SIMPLI  APPLICATION  EXAMPLE 

In  order  to  unaerstand  more  completely  the  application 
of  Petri-Nets  to  conrrunications  circuits,  refer  to  Figure 
12.  In  this  dlaeram  two  distinct  one-way  corrirunications 
channels  are  represented.  The  first  goes  from  T1  to  T2  and 
the  second  goes  from  T3  to  T5  and  through  T4.  The  individual 
tokens  are  representative  of  packets  of  information  in  a 
packet  switched  environment.  The  three  additional  nodes 
forming  a  triangle  in  the  center  of  the  diagram  impose  a 
special  firing  order  upon  the  transitions  in  the 
communications  channel.  These  center  redes  are  systems 
overhead  which  ensure  that  only  one  "packet"  can  be 
transmitted  during  a  single  time  frame.  In  fact,  if  the 
three  additional  center  nodes  are  thought  of  as  a  clock, 
then  the  entire  network  is  a  representation  of  Time  Division 
Multiple  Access  in  a  network.  A  terminal  can  only  transmit 
during  a  particular  assigned  time  slot.  After  the  time  slot 
passes,  the  user  must  wait  until  the  clock  cycles  hack  to 
his  slot  again.  Because  each  transmitter  has  a  unique  time 
slot  assignment,  no  two  terminals  can  transmit  during  the 
same  time,  and  collisions  of  packets  on  the  radio  broadcast 
channel  are  eliminated. 

This  explanation  should  give  the  reader  a  si~ple  idea  of 


the  manner 

in 

which  various  protocols 

are 

represented. 

Obviously 

the 

Petri-Net  in  Figure 

1? 

allows  only 

non-concurrent  activity  on  the  communications  channels. 


The  removal  of  the  additional  overhead  would  allow 
concurrent  activity.  In  fact,  this  is  sometiTes  desirable. 
?cr  Instance,  those  networks  such  as  AUTOEIN  II  which  will 
make  use  of  leased  landlines  will  allow  concurrent  activity 
in  the  network.  The  Petri-Net  is  none  efficient  when 
modeling  concurrent  activity.  The  requirements  to  ensure 
non-concurrency  as  in  Figure  12  ,  causes  one  additional  node 
and  one  additional  transition  to  be  placed  in  the  Petri-Net 
graph  for  every  transition  on  the  communication  links.  Using 
the  fundamental  Petri-Net  described  here  as  a  small  building 
block,  a  system  of  considerable  complexity  can  be  built  with 
many  origin  and  destination  terminals,  and  which  allows 
packets  to  flow  two  directions  with  multinle,  alternate 
paths  from  source  to  destination. 

D.  RANDOMNESS  IN  PETRI-NETS 

The  Petri-Net  simulator  used  in  this  thesis  work  is 
deterministic.  After  the  si-^ulator  begins  execution  there  is 
no  means  to  interactively  alter  the  sequence  of  events,  and 
there  is  no  element  of  randomness  within  the  simulator. 
Because  of  this  situation,  the  same  Input  file  will  always 
give  identical  output.  Although  the  capacity  for  alternate 
routing  within  the  communications  network  is  implemented, 
the  tokens  do  not  randomly  "choose”  their  routes  during 
execution.  They  can  only  follow  their  pre-assigned  routes 
from  origin  to  destination.  This  means  effectively  that 
fixed  routing. Instead  of  adaptive  routing  Is  represented  in 
the  simulations.  This  is  not  necessarily  a  disadvantage, 
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however,  as  sorre  sirrulati ons  have  shown  better  throughput 
and  time  of  delivery  results  using  fixed  routing  ever 
adaptive  routing  [2e]  . 

It  right  be  advantageous  to  modify  the  Petri-Net 
simulator  to  maie  it  more  stochastic  in  character.  This 
might  be  accomplished  in  at  least  two  ways.  First,  the 
Inital  marking  of  the  network  could  be  varied  randomly  at 
the  beginning  of  each  run.  Certain  key  nodes  could  be  marked 
or  left  unmarked  according  to  the  result  of  a  call  to  some 
random  number  generator.  Then  the  initial  random  state  of 
the  network  would  affect  the  end  result  of  the  output  file. 

A  second  way  to  add  randomness  deals  with  the  Petri-Net 
concept  of  "dynamic  conflicts"  (see  Figure  13,  for  an 
example  of  this  particular  network  state).  In  this  figure, 
the  reader  will  notice  that  both  Transitions  1  and  2  are 
enabled,  but  both  cannot  fire.  Only  one  transition  ran  fire, 
since  in  so  doing  it  removes  the  token  from  T2  ard  disables 
the  other  transition.  Thus  TP.l  and  TK2  are  sail  to  be  in 
conflict.  This  basic  relationship  can  be  used  to  create 
either  deterministic  or  nondeterministic  behavior.  If  the 
Petri-Net  simulator  is  deterministic,  the  firing  order  for 
transitions  in  conflict  is  fixed  according  tc  a  certain 
rule.  This  describes  the  case  in  this  paper.  The  firing 
order  of  tra’-sitions  is  explicitly  defined  by  their  ordering 
in  the  input  file.  In  the  case  of  Figure  13,  if  TKl  is 
listed  in  the  input  file  before  TH2,  and  if  a  dynamic 
conflict  occurs  between  them,  TRl  will  always  fire  first  and 
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TR2  will  not  fire  during  that  tirne  interval  because  it  will 
have  been  disabled.  This  set  of  rules  gives  a  strict 
priority  of  firing  to  the  network. 

The  firing  order  of  transitions  in  conflict  could  oe 
modified  so  that  it  occurred  in  a  randcm  fashion.  This  wculd 
allow  the  Petri-Net  to  be  executed  in  a  non-deterrinistic 
manner  and  add  the  missing  aspect  of  randomness  to  the 
outcome  if  so  desired.  In  fact,  Petri's  first  networks  were 
non-determinestic  because  of  this  factor. 

E.  NPKOPY  STORAGE  REPRESENTATION 

The  amount  of  memory  storage  in  any  particular 
communications  node  is  also  easily  represented  in  the 
simulation.  In  this  work  a  maximum  number  of  seven  packets 
is  allowed  at  any  one  node.  This  number  reflects  the  buffer 
size  of  seven  packets  in  packet  radio  technology.  If  at  ary 
time  a  code  accummulates  more  than  seven  packets,  the  buffer 
size  has  been  exceeded  and  packets  would  theoretically  be 
lost,  khen  the  buffer  space  is  exceeded,  the  number  of 
overflow  packets  is  displayed  outside  the  node  in  a  red 
warning  color. 

F.  SYSTFm  LOAD  AVERAGE 

The  system  load  on  the  network  can  be  represented  by  the 
number  of  packets  in  transit  at  any  one  time  interval.  The 
system  load  then  can  be  varied  by  controling  the  frequency 
of  message  generation.  The  shorter  the  icterarri val  time 
between  generated  messages,  the  busier  the  network  will  be. 


At  some  point  the  network  will  be  saturated  and  unacceptably 
conaested  if  message  input  is  greater  than  message 
throughput . 


It  is  a  simple  ratter  to  construct  a  message  generator 
using  Petri-Jiets.  See  Figure  14.  In  this  figure  Transiticn  1 
is  firing  to  two  outputs.  One  can  be  thought  of  as  external 
and  one  output,  Rl,  can  be  considered  internal  to  the 
network.  The  external  node  can  represent  entry  into  the 
communications  channel.  The  internal  output  feeds  a  token 
back  into  the  "generator"  and  will,  therefore,  fire  other 
packets  into  the  network  at  regular  intervals.  The  other 
repeaters  (R?,  R2 )  can  be  thought  of  as  delays  which  slow 
down  the  frequency  of  message  generation.  This  configuration 
of  places  and  transitions  constitute  a  message  generator. 
The  frequency  of  generation  can  be  staggered  and  then 
several  generators  may  be  placed  at  the  input  of  every 
communications  circuit.  In  this  merner  the  system  load  on 
the  network  may  be  varied. 

G.  Tim?  PFPRESFHTATION 

The  Petri-net  model  is  very  good  at  representing  the  net 
status  at  distinct  time  periods.  In  fact,  each  tire  Interval 
displayed  tc  the  screen  gives  an  excellent  "snapshot"  of 
network  status.  This  is  an  im, portent  advantage  inherent  to 
the  Petri-Net  simulation.  Another  advantage  is  the 
flexibility  afforded  in  assigning  the  time  Interval.  The 
user  has  the  prerogative  of  making  each  time  interval  as 
long  or  as  short  as  is  necessary.  Successive  snapshots  may 
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71.  THI  EXPIFir!!::iT 

A.  rSSCRIPTION 

An  experlrrent  was  designed  to  derorstrate  the 
feasibility  of  using  the  Petri-Net  simulator  as  a  predictor 
of  network  performance.  The  experiment  was  uerfor'^ed  by 
keeping  certain  parameters  constant  and  varying  others.  A 
series  of  six  input  files  were  run  through  the  simulator.  In 
all  six  files  the  network  architecture  and  the  fixed  routes 
were  kept  constant.  Figure  15  shows  the  network.  There  were 
five  origins  of  message  traffic  and  five  destinations.  Four 
nodes  were  designated  as  terminals  plus  one  station.  There 
were  four  repeaters  that  performed  relay  functions  within 
the  network.  Fach  of  the  five  orl£*ins  could  send  traffic  to 
one  o'f  four  destinations.  Sach  source  to  destination 
combination  had  two  routes  for  traffic  to  take.  This  made  a 
total  of  38  possible  fixed  routes  in  the  network. 

The  controlled  variables  for  the  experimient  were  system 
load,  concurrent  vs.  non-concurrent  activity,  end  polling 
frequency  of  various  circuits.  The  first  three  runs  of  the 
experiment  were  done  with  a  high  load.  For  the  second  three 
runs  the  message  generators  were  slowed  down  to  give  a  low 
system  load.  Some  input  files  allowed  concurrent  network 
activity  and  som.e  required  non-concurrent  activity,  ^n  two 
of  the  non-current  runs  the  frequency  of  polling  certain 
selected  circuits  was  increased.  This  would  represent  the 
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equivalent  of  assi^nln^  a  certain  user  Tore  tire  slots  ir.  a 
TTi^A  sc’iere  than  another.  It  would  give  priority  to  tnose 
suhscrihers  who  have  rore  traffic  to  send. 

The  only  statistic  gathered  froT  the  excerinent  was 
throughput  measured  in  the  number  of  packets  which 
successfully  reached  their  destination.  This  number  could  be 
extracted  directly  from  the  output  queues  at  each  terminal 
or  station.  The  following  points  sumarize  the 
characteristics  of  each  of  the  six  input  files: 

1.  Runs  22-24  were  run  at  high  load. 

2.  Funs  25-27  were  run  at  low  load. 

•3.  Runs  22  and  25  exhibit  concurrent  network  activity. 

4.  Runs  23  and  26  exhibit  non-concurrent  network 
activity  with  equal  polling  frequency  of  all  circuits. 

5.  Runs  24  and  27  exhibit  non-concurrent  network 
activity  with  weighted  polling  on  certain  circuits  that  are 
terminated  at  T1 . 

3.  RESULTS 

Figure  16  shows  a  summary  of  throughput  statistics  from 
the  experiment.  Certain  results  are  no  doubt  obvious,  but 
the  quantitative  nature  of  output  statistics  validates  prior 
assumptions. 

The  following  otervations  are  noteworthy,* 

1.  Allowing  concurrent  activity  on  the  network  greatly 
increases  throughput.  The  number  of  packets  successfully 
transmitted  in  RUNS  22  and  25  was  on  the  order  of  four  tires 
larger  than  the  non-current  runs.  This  question  of 
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throughput  in  numbfp  of  PAcirrTS 
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Figure  16. 
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concurrency  has  significant  implications  to  radio  broad¬ 
cast  systems.  lor  instance,  what  would  he  the  advantages 
gained  in  the  Packet  Padio  ffetwork  if  terminal  radio  output 
power  were  reduced  so  that  the  terminal  could  only  talk  tc 
its  nearest  neighbor  ra^'her  than  the  entire  network?  This 
situation  could  allow  simultaneous  transmission  of  packets 
without  the  threat  of  collision.  Also,  a  multiplexing  scheme 
within  the  network  could  allow  concurrent  activity.  These 
types  of  considerations  could  he  modeled  easily  with  the 
appropriate  modi f i catiors  to  the  Petri-Vet  graph. 

2.  Increasing  the  frequer.'';/  of  polling  on  selected 
circuits  Increases  the  throughput  of  those  circuits.  The 
reader  should  note  the  numher  of  packets  received  at  T1  in 
PONS  23,  24,  26,  and  27.  PUNS  24  and  27  shew  a  slight 
Increase  because  certain  circuits  destined  for  terminal  T1 
were  polled  more  frequently.  This  situation  could  easily 
reflect  the  assignment  of  more  time  slots  to  certain 
priority  suhscrlhers  in  a  TD!^A  scheme.  Again  this 
modification  was  performed  simply  hy  restructuring  the  input 
file  to  the  Petri-Net  simulator. 

3.  The  reader  will  rote  that  the  total  throughout  Ir  the 
non-concurrent  runs  is  largely  the  same  regardless  of  the 
high  load  -  low  load  factor.  This  is  because  the  system  is 
basically  "saturated”  during  non-concurrent  activity  at  both 
high  and  low  loading.  Although  the  user  mi^ht  desire  tc 
improve  throughput  by  generating  more  messages  and  trying  to 
force  them  into  the  system,  the  network  wll-1  eive  the  same 
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results  because  it  is  already  operating  at  full  capacity. 

4.  A  visual  inspection  of  the  output  as  ?"fN2c  executes 
reveals  that  the  systerr.  is  essentially  operatin?  at  peek 
efficiency  under  maximum  load.  The  view'^r  will  retire  that 
the  buffers  at  every  location  are  frequently  filled  to 
capacity  but  seldom  are  overflowing. 


711.  RECO^'^'^N  DAT  IONS  A/IC  CCNCLUSI  0‘IS 


A.  RECO'^MENTATICNS 

The  potential  exists  for  si^nl  ficar.t  follow-on  wor>  to 
this  thesis,  "^ajcr  topics  for  future  work  in'^lude  the 
f ollowir  »; 

1.  The  devel opjrer.t  of  a  language  to  describe  r.etworics, 
and  the  inclusion  in  t.ne  software  of  a  "front-erd”  prograr 
that  would  make  the  input  file  less  cumbersome.  The  program 
could  be  static,  like  a  comT)il®r,  or  interactive,  writte"  to 
query  the  user  about  a  number  of  basic  network  parameters. 
Eor  instance:  How  mary  nodes  do  you  desire  in  the  network? 
What  are  the  paths  of  traffic  from  source  to  destination?  Eo 
you  wish  to  allow  concurrent  or  non-current  activity?  The 
software  would  take  the  user  responses  to  such  parameters 
and  construct  the  input  file  from  the  responses. 

2.  A  statistics  gathering  package  should  be  written  to 
collect  and  collate  vital  networ’^  parameters  as  the 
simulator  is  executed.  Such  a  package  would  keep  ?.  running 
total  of  such  items  as: 

a.  average  number  of  packets  at  a  rode 

b.  average  number  of  packets  on  a  circuit 

c.  percent  use  of  a  circuit 

d.  average  time  delay  between  transmission  and  reception 
along  each  fii®d  route 

e.  number  of  messages  lost 


f.  rurrber  of 


messages  which  successfully  reach 


lestinat  ion . 

These  statistics  could  be  fo^tratted  and  displayed  by  a 
post-processor. 

3.  As  -nrevlously  described,  the  addition  of  rardctrness 
to  the  simulator  tnleht  be  considered  desirable,  and  ,  if  so, 
the  prouer  modifications  could  be  added. 

4.  As  the  system  approaches  "production  status",  the 
entire  question  of  model  validation  needs  to  be  addressed 
carefully.  Vuch  could  and  indeed  has  been  written  on  the 
subject  of  how  to  demonstrate  your  simulation  is  accurate. 
[10]  As  in  most  simulations  there  is  a  tradeoff  between  the 
degree  of  complexity  represented  in  the  model  versus  the 
largeness  of  the  network.  If  a  network  is  small  or  if  only  a 
small  segment  of  the  network  is  modeled,  the  degree  of 
detail  can  be  great.  If  the  network  is  very  larg“,  however, 
the  da^a  storage  capability  might  not  allow  the  same  level 
of  detail. 

There  vere  two  constraints  to  validation  posed  ir  this 
work.  First,  the  memory  capacity  cf  the  PIP-ll/T^  was 
stretched  to  the  limit  on  the  larger  runs.  The  mini-computer 
offers  128,33?  bytes  of  memory  whlc*'  are  partitioned  into 
thirds.  This  elves  any  one  user  129/3  or  42. F  Z  bytes  of 
memory.  The  granhics  programs  approached  and  then  ex''eed‘»d 
this  bound  before  the  work  was  completec.  This  forced  the 
division  of  one  program  into  two  separate  programs  cf  38X 
each.  The  file  sizes  for  the  output  files  from  the  Petri-N'et 
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sl’^ulator  are  also  very  lar?e.  The  larger  of  the  inrut  files 
produced  outout  files  on  the  order  of  "bytes.  Tirure  17. 


shows 

the  relationship 

h® 

tween  numb 

er  of 

nodes  in 

the 

°et  ri’ 

-Net  versus  the  si'^e 

of 

the  output 

files. 

In  order 

to 

make 

claims  of  sl'^ulaticn 

a  c ''  u  ra  c  y 

ha  <;®d 

or.  real  wc 

rid 

networks,  ircre  nerr.ory  Is  needed. 

It  should  he  added  at  this  point  that  liTitation  of 
rremory  caused  changes  in  the  ?raphl''s  display  proerars  and 
in  th®  overall  organization  of  th®  software.  The  notential 
exists  in  the  actual  Petri-Net  simulator  (written  in  fcrt’-an 
and  discussed  in  AppenliT  A)  for  the  execution  of  Petri-'’®ts 
of  well  ove**  a  thousand  places.  If  the  user  does  not  require 
a  graphics  output  from  this  software  package,  then  larger 
networks  can  he  simulated  on  the  PIP  11/7S. 

Secondly,  the  networks  that  were  of  most  interest  to  the 
authors  are  largely  °xp®rimenta  1 ,  unpro’-'en  tec'r.ologies .  The 
Autclln  TI  network  is  ’’ot  yet  operational  and  no  statlsti'^s 
are  available  for  validation  purposes.  The  JTIT?  technology 
is  likewise  not  established  operationally  and  many  of  tne 
system  chara ct ®ri s t i cs  are  cla5sifi®d.  ?eck®t  radio,  which 
formed  a  good  deal  of  background  for  the  slruletior. ,  is 
still  in  its  Infancy.  Also,  packet  radlc  emrlcys  a  rardcm 
channel  access  scheme  which  1$  contrary  to  the  i®teT‘mi’’istic 
nature  of  the  Petri-Vet  simulator. 

Pecause  these  ar®  new  technol ori es ,  new  routing  and  flow 
control  algorithms  ard  a  host  of  different  kinds  of  nrotccol 
a-e  presently  being  developed.  It  is  difficult  to  model  a 
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syste'"  that  has  rrt  reached  its  production  state.  Esther 
than  heir.?'  corcerned  about  mcdelin?  a  particular  network 
that  is  still  in  a  process  of  charge  and  then  tryin*?  to 
prove  t’^e  simulaticr  valid,  it  seered  wiser  tc  leave  the 
rcdels  in  a  more  general  state,  '^y  erecutin^'  a  variety  of 
different  input  files ,  the  sirula  1 1  ons  d ernonstra t e  the 
feasibility  of  future  validation. 

E.  CONCLUSIONS 

The  conclusions  of  the  authors  are  fourfold: 

1.  First,  corputer  cotrr'unicati  on  networks  car.  be 
mea nlngfully  TOdeled  with  the  use  of  Petri-Nets.  The 
background  research  to  this  thesis  discovered  no  previous 
work  which  employs  Petri-nets  in  the  manner  described  in 
this  paper. 

2.  Secondly,  Petri-Net  models  of  networks  can  be 
executed  and  displayed  effectively  on  a  color  Graphics 
terminal.  The  results  of  such  a  simulation  are  more  easily 
u.nderstood  than  the  common,  hard-copy  outputs  produced  by 
most  analytical  or  queuing  theory  simulations.  The  color 
graphics  output  also  could  have  considerable  educational 
value.  A.geln,  background  research  uncovered  ro  irstance  ir. 
w’»lch  Petri-Nets  were  displayed  and  executed  cn  a  cclcr 
?raT)hlcs  terminal. 

7 .  Thirdly,  and  perhaps  most  importantly,  the 

. f a » 1  on  of  such  a  modeling  technique  in  a  production 

^  pr®d?ctcr  cf  system  performance  appears 
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This  chapter  is  written  to  i  =  s'ri'-e  certain  procedures 
and  syntar  peculiar  to  the  sinulatior.  software.  Assuring 
that  an  Interested  student  or  faculty  penher  is  somewhat 
familiar  with  the  theory  and  structure  of  Petri-*Jets,  the 
instructions  in  this  section  will  allow  him  to  apply  the 
simulation  and  fraphios  cutout  to  his  pa~ticular  modellnr 
prohl<=r. 

7igur“  IP  shews  the  various  ''omocner.ts  of  the  entire 
software  paf'kage,  the  program  source  code  sizes,  the 
proeranmlng  lanfoua^’e,  ana  the  output  files.  The  reader 
should  refer  to  this  figure  as  he  reads  the  Instracticns  in 
this  append  in . 

F .  THF  INPUT  ?ILI 

The  input  file  written  hy  the  user  contains  all  of  the 
ir.fornatlon  necessary  to  uniquely  desrrihe  the  Petri-Net 
model.  This  file  is  read  hy  the  fortran  f-lp  program  named, 
"simulator".  The  incut  file  mus’’  he  ramed  "RUMyX,  where  X)I 
car  be  any  number  from  t'i  through  99.  There  ar“  three  main 
divisions  of  the  file. 

Part  I  Places 

Part  II  Transitions 

Part  III  h.ar^lrg 
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Apper.diT  B.  shows  a  sairr^le  Input  file.  7he  reader  should 
refer  to  this  STarrple  as  he  reads  the  follow  1  n? 
I  r.structi  on'  . 

1 .  Places 

The  first  line  of  the  file  specifies  the  total 
number  of  places  to  be  read  in.  Be'inr.irj;  or  lire  •’urber 
two,  the  names  and  locations  of  the  places  are  listed.  The 
following  format  applies: 

Place  Mane  ....  X-ccrdinate  ....  Y-cordinate  ....  Plot  Fla^ 

T*^e  place  name  must  be  less  than  1?  characters  long. 
Only  the  first  two  characters  will  be  displayed  as  a  label 
on  the  graphics  terminal.  There  ere  unique  instructions  for 
labeling  places  In  the  multi-routine  ve-slon.  These  will  be 
discussed  later. 

The  first  letter  of  the  name  specifies  the  tyre  of 
figure  that  will  be  displayed.  The  letter,  "t"  ,  identifies  a 
"terrinal”  and  will  appear  as  a  ci-cle  on  the  output  screen. 
The  letter  "s”  identifies  a  "staticn"  and  will  anpear  as  a 
rectangle  or.  the  screen.  The  letter  ‘‘R"  identifies  a 
"repeater"  and  will  be  displayed  as  a  truncated  triangle. 
Input  and  output  queues  can  be  represented  by  placing  an  "l" 
or  "o”  as  the  first  character  of  the  place  rare.  These  nodes 
are  displayed  as  small  rectan^'les ,  larme  enough  to  contain  a 
two  digit  number.  Names  may  begin  with  letters  other  than 
those  listed  above.  They  will  not,  however,  be  displayed  to 
the  screen. 
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After  the  name  is  listed,  on  the  sare  lire,  the 
screen  location  of  the  place  is  specified  hy  means  of  an  i, 
y  coordinate  system.  The  x  and  y  values  are  in  the  ran^e  of 
with  the  (C'.P')  point  located  at  the  top,  left-hand 
corner  of  the  graphics  display  unit. 

The  third  item  of  information  in  the  "■nla''®s”  line 
is  a  "plot  on/off"  entry.  The  user  will  freauently  have 
places  Identified  in  the  Petri-Net  which  are  necessary 
control  elements,  hut  which  do  not  need  to  be  displayed  on 
the  output.  A  value  rf  '"l”  will  cause  the  place  tc  be 
displayed  with  its  label.  A  value  of  "e"  is  used  for  listing 
places  which  are  not  iisolayei  to  the  output  screen. 

2,  Transitions 

After  every  place  in  the  Petrl-K'et  Is  listed  (one 
line  per  olace),  the  transitions  a^e  listed.  As  before,  the 
first  line  spe^'ifles  the  total  number  of  transitions  to  be 
read  in. 

Then,  the  transitions  are  each  listed  in  a 
three-line  format  as  follows: 

Transition  Name...!  Coordinate...!  Coordinate .. .Plot  Plag 
Places  into  Transition 
Places  out  of  Transition 

Transitions  are  named  "TRXX",  followed  by  their  x,  y 
coordinates,  and  a  ”l"  or  "3"  to  Indicate  whether  they  are 

t 

to  be  displayed  to  the  screen.  The  second  line  concerns  the 
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input  to  the  transition. 

The  first  field  of  this  line  specifies  the  total 
nurher  of  inputs,  and  the  followir.s’  numbers  indicate  which 
places  enter  that  transition'.  The  numbers, 

3  5  11  14 

for  instance,  indicate  that  three  places  are  inputs  to  this 
transition.  The  particular  places  are  identified  by  their 
l'"pllcit,  line-number  ordering  as  enter®!  in  the  list  of 
places.  Tn  this  example  the  three  places  are  the  8th,  11th, 
and  14th  places  entered  in  the  input  file. 

The  third  line  of  the  transition  entry  concerns  the 
outputs  from  that  transition.  The  format  is  iderticel  to 
that  of  the  line  above,  l.e.,  the  numbers 

r 

indicate  that  the  transition  fires  to  two  outputs,  the  3rd 
an!  4th  places  listed  in  part  one  of  the  input  file. 

3.  Initial  Marking 

After  all  the  places  and  transitions  are  listed,  the 
Petri-Net  must  be  given  its  initial  state  of  marking.  The 
initial  placerrent  of  tokens  is  specified  by  the  following 
format ; 

^'AP’C  Line  g  of  Piece  #  of  Tokens 

Thus,  the  entry  "maPK  3  l"  specifies  that  at  the 
beginning  of  the  simulation.  Place  3  (the  third  ertry  in  the 
list  of  places)  is  marked  with  one  token.  Several  places  may 


be  rrarked  initially,  but  each  ranking  requires  a  separate 
line. 

Tvery  line  Ir.  the  input  file  begins  in  the  first 
colu'T'n.  To  net  indent  the  beglnninc  character  cf  the  line. 
The  fields  within  each  line  rust  be  separated  by  one  (or 
more)  blank  spaces.  The  final  line  of  the  input  file  is  the 
c errand 

4.  FTecutlon 

’•■'hen  the  user  corpletes  the  input  file  he  should 
exit  fror  the  edit  rode  and  is  now  ready  to  execute  the 
prograr  " sirul a  tor"  by  typing  "simulator. out” .  The  program 
will  ask  hi'^  which  i^put  file  he  wishes  tc  read,  e^d  the 
user  responds  by  typing  "RUMXX"  (the  file  he  previously 
created)  and  a  <cr>. 

C.  THi:  OUTPUT  FILES 

The  program  "sirulator"  produces  six  s'»T5arate  output 
files.  Vhen  RUN(^1  is  entered  Int''  "sirulator",  files  named 
PUN31A,  PUN^IP,  RUN21X,  PUN31Y,  and  RUN31Z  are  produced.  The 
files  suffixed  with  *  through  C  are  formatted  files.  Files  T 
through  Z  are  unformatted.  Files  A  and  X  contain  the 
essential  data  structures  that  have  been  read  in  "simulator" 
fro""  the  input  file.  Files  P  and  T  contalr  the  markings  for 
each  place  at  successive  time  frames  which  will  anpear  on 
the  graphics  output.  Files  C  and  Z  contain  information 
concerning  which  links  or  transitions  fire  at  any  particular 
time  frame  and  are  used  to  highlight  present  activity  on  the 
screen.  The  graphics  display  programs,  written  in  ' C’  , 
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require  unformatted  Input  files.  The  formatted  files  are 
reoessary  for  the  user  to  validate  that  correct  input  data 
is  reaching  the  graphics  program,  and  to  troubleshoot  when 
locating  a  problem.  Examples  of  these  files  are  contei’ied  in 
Appendices  C  through  S. 

D.  USSP.  OPTIONS 

1.  Choice  of  Programs 

^fter  the  program  "simulator"  has  executed  the  input 
file,  the  "c"  nrcgrams  read  the  output  files  and  disolay  the 
results  of  the  simulation  to  the  screen.  At  this  point  the 
user  has  several  options  concerning  the  method  of  display. 

There  are  two  separate  -Drograms  the  user  can 
select — "transgraph"  and  " linkgraph" .  By  executing 
"transgranh"  the  viewer  will  be  able  to  observe  the  nodes  of 
the  network  together  with  their  a^ssociated  transitions. 
"Llnlcgraph"  does  not  display  the  transitions,  but  links 
node-to-node  in  the  common  way  that  communications  networks 
are  most  frequently  represented.  For  simple  networks  or  to 
explain  the  basic  working  of  Petri-Nets,  the  user  will 
probably  desire  to  see  the  transitions.  "Trans?raph"  will 
only  run  with  less  than  103  ulaces.  For  mere  intricate 
networks  that  contain  several  hundred  olaoes  and 
transitions,  the  "llnknode”  program  is  necessary  to  avoid 
congestion  on  the  screen. 

2.  User  Cuestio’-s  and  Hesponses 


ffter  selecting  which  program  to  run,  the  user  is 
given  a  series  of  questions  from  the  CPT.  Ouestlor  one  asks 


the  user  to  select  vhlch  Inout  file  he  wishes  to  execute.  He 
responds  with  the  corrnand  RUN  X.  For  instance,  if  the  input 
file  na-red  RUN21  has  been  executed  ty  "simulator",  and  the 
user  wishes  to  see  the  results,  he  enters  PUN21X  in  response 
to  question  one.  (Numerous  files  may  be  v/aitir.g  in  the 
users'  directory  which  can  be  called  in  for  display.) 

Ouestion  2  asks  the  user  if  he  wants  to  view  the 
data  structures  of  the  program.  3y  entering  a  "l",  the  data 
structures  will  be  printed  to  the  CRT.  A  "z"  will  move  on  to 
the  next  ouestion  without  viewing  the  data  structures. 

Cuestlon  3  asks  the  user  which  of  three  versions  of 
the  program  he  wishes  to  see.  Tersion  1  displays  the  marking 
of  tokens  in  the  conventional  Petri-Net  fashion,  with 
numbers  printed  at  the  center  of  the  places.  Version  2 
represents  tokens  by  single,  yellow  boxes  printed  Inside  the 
nodes.  These  boxes  are  deslened  to  represent  "packets"  of 
information  in  the  packet  switching  concept.  As  previously 
described,  each  node  has  the  capacity  to  hold  seven  pa''kets. 
If  the  number  of  packets  goes  over  seven,  a  red  overflow 
number  appears  beside  the  saturated  place. 

The  third  version  is  the  ''ulti-routing, 
multl-destlna  tl or,  version.  Version  3  uses  color  in  a  unique 
way.  Pecause  packets  may  be  originating  at  different  nodes 
and  traveling  to  several  destinations,  the  linking  channels 
require  two-way  transmission.  The  graphics  display  is 
color-coded  to  highlight  this  information.  Packets  traveling 
to  a  particular  place  are  colored  to  match  the  label  of  that 


place.  For 

Instance, 

when  a 

green 

box 

appears 

ir 

the 

network. 

the  viewer 

can 

t  race 

its 

proeress 

to 

the 

destination 

whose  label 

is  displayed 

in  gre 

en .  In  V 

ersion  3 

(.multi-routine),  a  racket  orieir.a  ting  at  a  certain  node  and 
destined  for  another  T!arti''ular  rod“  '^ay  take  different 
paths  to  arrive  at  the  destination. 

The  user  at  this  point  Tust  select  one  cf  the  three 
versions  hy  entering  a  "l",  "2",  or  ”3"  followed  by  a  <'cr'>. 

Cuestlon  4  asks  the  user  to  select  one  of  the  three 
Genisco  graphics  terminals  in  the  C3  lab  on  which  the  output 
will  appear.  Correct  entries  to  this  query  are  "3",  "l",  or 
”2”. 

The  fifth  question  asks  the  user  if  he  desires  a 
time  uause  of  two  seconds  duration  between  tire  frames  of 
the  simulation.  If  he  desires  the  canabllity  to  Icok  closely 
at  each  network  snapshot,  he  enters  a  "l".  If  not,  he  should 
enter  a  and  the  simulation  will  run  without  pauses.  This 
gives  the  viewer  more  of  a  "real-time”  impression. 

M  the  end  of  this  final  question,  the  screen 
displays  the  initial  condition  of  the  network.  *fter  noting 
the  initial  condition,  the  user  should  type  a  carriage 
return  to  continue  execution. 

If  the  user  has  tyued  a  ”l"  in  response  to  question 
5,  he  also  has  the  ability  to  indefinitely  suspend  emecution 
of  the  prosram  at  any  time  frame.  He  oar  irterrupt  the 
program  by  typing  a  ”ZR\"  from  the  CRT  keyboard.  After 
studying  that  particular  snapshot  of  network  status,  ne  may 


continue  rorrral  execution  b/  typing  a  carriage  return. 

This  interrupt  does  not  work  if  tne  prcgrar  is 
executing  without  pauses.  Typing  two  consecutive  '‘■=HK's" 
will  enable  the  user  to  exit  the  program  entirely. 

3.  The  ”?ighllghting'*  Feature 

The  linking  algorithm  in  both  "transgraph’’  and 
"linkgraph"  draws  lines  in  a  dark  blue  color.  The 
highlighting  feature  in  both  programs  changes  the  blue 
cornectlng  link  color  to  bright  yellow  on  those  links  which 
are  carrying  traffic  at  any  particular  tine  frane.  This 
feature  performs  in  the  following  sequence.  (i)  The  link 
lights  up  at  the  point  where  the  future  action  will  cccur. 
(2)  The  packet(s)  in  question  moves  from  one  end  of  the 
highlighted  link  to  the  other.  (3'  The  highlight  remains  on 
the  link  to  emphasize  where  the  action  occurred,  "^he  user 
will  notice  that  direction  of  movement  on  the  highlighted 
link  is  indicated  hy  an  arrow  pointing  in  the  appropriate 
direction.  See  "'’Igures  19  and  22, 

E.  TNICUE  INSTHUCTIC?IS  EOH  VERSICt’  3: 

In  order  for  the  user  to  implement  the  capabilities  of 
Version  3,  special  network  design  irfornatlon  must  be 
included  in  the  input  file.  This  paragraph  describes  these 
special  instructions. 

The  simulation  is  structured  to  function  in  a  fixed 
routine  manner.  That  is,  the  multi-routed  paths  are 
,  predefined  by  the  user. 
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There  can  lie  as  rany  alternate  paths  fror-  source  to 
destination  as  the  user  wants  to  include.  Tut  once  these 
paths  are  specified  in  the  input  file,  they  do  not  change 
dynamically  during  execution. 

The  multi-routine  feature  is  made  possible  hy  ’’stacking” 
numerous  places  on  top  of  one  another  and  displaying  these 
plggytJacked  places  at  the  same  coordinates.  In  this  manner 
the  nodes  appear  on  the  screen  as  a  single  place,  although 
in  reality  they  may  he  buried  several  deep. 

As  the  total  network  is  conceptualized  by  the  user,  he 
must  beein  by  mappinr  out  all  origins,  all  destinations  and 
all  relay  nodes.  Every  node  becomes  unique  to  a  particular 
path.  For  instance,  a  simple  case  would  be  to  send  a  packet 
from  T9  to  T5  (see  Figure  21.)  by  two  different 
routes — Poute  1  goes  through  HI  and  Route  ?  eoes  through  R2. 

In  this  case  T9  and  T5  would  be  ’’stacked”  two  deep.  The 
routes  ere  T9-P1-T5  end  T9-R2-T5.  because  they  are  plotted 
at  the  same  point,  the  terminals  appear  as  a  single  node. 

The  ’’header"  Information  to  perform  this  routing  is 
contained  in  the  name  of  the  place.  In  Version  3,  every  node 
that  will  be  displayed  to  the  screen  must  be  assigned  a 
seven  unit  name  in  the  input  file. 

The  first  unit  of  the  came  specifies  the  type  of  figure 
to  be  displayed  (  T  ,  S  ,  P  ,  I  ,  0  as  previously 
explained).  The  second  unit  specifies  the  color  that  the 
name  will  be  printed  in.  This  number  is  derived  from  the 
particular  color  table  (  16  colors  are  in  a  color  table  ) 


9' 


that  Is  being  used  by  the  graphics  prograrr.  The  color  of  the 
label  must  ccrrespond  to  the  color  of  the  packets  bound  for 
that  route's  desti ration.  Units  ?  and  4  of  the  name 
designate  the  route  number  that  the  node  lies  upon.  Route 
numbers  are  arbltarlly  given  by  the  user  and  utilized  for 
his  own  identification  purposes.  Unit  5  designates  the  color 
of  the  packet  that  will  travel  along  that  particular  route. 
Every  node  on  that  route  have  the  same  color  designator.  The 
packet  color  of  the  route  is  determined  by  the  destination 
of  that  route.  Units  6  and  7  of  the  name  specify  how  many 
nodes  are  stacked  at  that  location.  Places  that  are  stacked 
must  be  listed  together  in  the  input  file. 

An  example  of  this  7  unit  name  might  appear  as  follows: 

T205419 

yield  1  designates  that  a  circle  will  be  drawn. 

Field  2  specifies  that  the  label  will  be  displayed  in 
color  number  2  of  the  program's  color  table. 

Fields  ^  and  4  show  the  place  on  route  number  05. 

Field  5  ensures  that  every  packet  which  passes  through 
this  place  will  be  displayed  in  color  number  4. 

Fields  6  and  7  specify  that  places  are  stacked  19  deep 
at  this  coordinate. 

As  the  program  executes,  the  stacking  algorithm  totals 


all  the  packets  which  are  located  at  a  particular  stacked 
location  and  displays  that  total  number  of  boxes  in  the 
appropriate  colors. 
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2  T1  150  100  1 

3  ra  ISO  250  1 
a  T3  150  aoo  1 
5  T4  350  250  1 
b  G1  0  0  0 

7  62  0  0  0 

8  63  0  0  0 
<)  G4  0  0  0 

10  65  0  0  0 

11  G6  0  0  0 

12  8 

13  1»1  250  175  I 

14  2  1  2 

15  1  4 

16  TR2  250  525  1 

17  2  2  5 

18  2  4  8 

19  TR5  000 

20  1  5 

21  2  1  6 

22  TR4  000 

23  1  6 

24  1  10 

25  TRS  0  0  0 

26  1  7 

27  2  2  9 

28  TR6  000 

29  1  8 

30  1  3 

51  TR7  0  0  0 

52  1  9 
35  1  7 

3a  TR8  000 

35  1  10 

36  1  5 

37  MARK  5  1 

38  MURK  7  1 

39  MARK  5  1 

40  END 
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177 

2 

59 

92 

178 

1 

22 

1 

179 

TR19 

360 

140 

ISO 

2 

22 

90 

104 
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181 

1 

12 

182 

TR20 

100 

100 

0 

1«3 

2 

S3 

96 

184 

1 

38 

185 

TR21 

100 

100 

0 

186 

2 

38 

9(1 

187 

1 

1 1 

138 

TR22 

100 

100 

0 

189 

2 

52 

100 

190 

1 

21 

191 

TR23 

330 

230 

1 

192 

2 

21 

98 

191 

1 

37 

194 

TH24 

325 

335 

1 

195 

2 

51 

102 

196 

1 

36 

197 

TR25 

100 

1  00 

0 

198 

2 

46 

106 

1  99 

1 

35 

200 

TR26 

100 

100 

0 

201 

2 

35 

104 

202 

1 

10 

203 

TR27 

100 

350 

1 

204 

2 

45 

108 

205 

1 

17 

206 

TR28 

170 

160 

1 

207 

2 

17 

no 

208 

1 

9 

209 

TR29 

100 

100 

0 

210 

2 

44 

112 

211 

1 

16 

212 

TR30 

100 

100 

0 

213 

2 

16 

114 

214 

1 

34 

215 

TR31 

180 

310 

I 

216 

2 

43 

116 

217 

1 

33 

218 

TR32 

100 

100 

0 

219 

2 

32 

120 

220 

1 

20 

221 

TR33 

100 

100 

0 

222 

2 

20 

118 

223 

1 

50 

224 

TR34 

300 

400 

I 

225 

2 

31 

122 

226 

1 

a9 

227 

TR35 

100 

100 

0 

226 

1 

55 

229 

2 

57 

56 

230 

TR36 

100 

100 

0 

231 

1 

57 

232 

2 

59 

58 

233 

7R37 

100 

100 

0 

234 

1 

59 

235 

2 

60 

61 

236 

TH3e 

100 

100 

0 

237 

1 

61 

238 

2 

63 

62 

239 

TR39 

100 

100 

0 

240 

1 

63 

105 
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241 

2  65  64 

242 

TR40 

100 

100 

0 

243 

1  65 

244 

2  67  66 

245 

TR41 

100 

100 

0 

246 

1  67 

247 

2  69  68 

24S 

TR42 

100 

100 

0 

249 

1  69 

250 

2  71  70 

251 

TR43 

100 

too 

0 

252 

1  71 

253 

2  73  72 

254 

TR44 

100 

100 

0 

255 

1  73 

256 

2  75  74 

257 

TR45 

100 

100 

0 

258 

1  75 

259 

2  77  76 

260 

TR40 

100 

100 

0 

261 

1  77 

262 

2  79  78 

263 

TR47 

100 

100 

0 

264 

1  79 

265 

2  81  80 

266 

TR48 

100 

100 

0 

267 

1  81 

268 

2  83  82 

269 

TR49 

100 

100 

0 

270 

1  83 

271 

2  85  84 

272 

TR50 

1  00 

100 

0 

273 

I  85 

274 

2  87  86 

275 

TR51 

100 

100 

0 

276 

1  87 

277 

2  89  88 

278 

TH52 

100 

100 

0 

279 

1  89 

280 

2  91  92 

281 

TH53 

100 

too 

0 

282 

1  91 

283 

2  93  90 

284 

TR54 

too 

too 

0 

285 

1  93 

286 

2  95  96 

287 

TR55 

100 

100 

0 

288 

1  95 

289 

2  97  94 

290 

TR56 

100 

100 

0 

291 

1  97 

292 

2  99  too 

293 

TR57 

100 

100 

0 

294 

1  99 

295 

2  101  98 

296 

TRS8 

100 

100 

0 

297 

1  101 

298 

2  103  102 

299 

TH59 

100 

100 

0 

300 

1  105 
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301  2  105  106 

302  TR60  100  100  0 

303  1  105 

304  a  107  104 

305  TH61  100  too  0 

306  1  107 

307  2  109  100 

308  TR62  too  too  0 

309  1  109 

310  2  111  no 

311  7963  100  100  0 

312  1  til 

313  2  113  112 

314  TR64  100  100  0 

315  1  113 

316  2  115  114 

317  7965  too  too  0 

318  1  115 

319  a  117  116 

3ao  rR66  100  too  o 

3ai  I  117 

322  2  ll®  120 

323  TR67  100  100  0 

324  1  119 

325  2  121  118 

326  TR68  100  100  0 

327  1  121 

320  2  55  122 

329  mark  1  1 

330  MARK  2  1 

331  mark  3  1 

332  mark  4  1 

333  mark  5  1 
53«  mark  6  1 

335  MARK  27  1 

336  MARK  28  1 

337  MARK  29  1 

338  mark  30  1 

339  MARK  31  I 

340  MARK  32  1 

341  mark  43  1 

342  MARK  44  1 
3u3  mark  45  1 

344  MARK  46  1 

345  MARK  51  1 

346  mark  52  1 

347  mark  53  1 
340  MARK  54  1 

349  MARK  61  1 

350  END 
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1  FROGKi^  SIMULATOR 

2 

3  C  original  VFRSItiN  OF  THIS  PROGRAM  (PROGRAM  TESTNT)  WRITTEN  BY  L.A.COXO 

«  C  MOCIFIFO  to  operate  OM  UNIX  (POP  11/70)  RY  S.C , JENTJlNGS  &  R.J.MARTELo 

5  C  PROGRAM  SIMULATOR  READS  USE®  INPUT  FILE  AND  PRODUCES  b  OUTPUT  FILES 

b 

7  C  mainline 

8 

9  call  INIT 

10  CALL  INPUTl 

11  CALL  OUMPPP 

12  CALL  «OV£NET(150) 

13  CALL  EXIT 

14  END 

15 
lb 

17  SUBROUTINE  INIT 

18 

19  c  INIT  OPENS  USEP  INPUT  file  A  CREATES  b  OUTPUT  FILES 


20  C  FNAMI  STORES  THE  lUPuT  FILE  - - - - - RUN.. 

21  C  FNAM?  STORES  TMF  FORMATTED  IT  PUT  DATA  STRUCTURES  - - RUN. .A 

22  C  FNAmj  stores  the  formatted  ITERATIOTjS  of  the  network  -  RUN. .8 

23  C  FNAMfl  SU'RES  THE  FORMATTED  LINKS  OF  THE  NETWORK  - —  RUN..C 

2U  c  FNA"?  STORES  ThE  UMFL'RmATTEO  GRAPHICS  ITJPUT  PUN..X 

25  c  FNAMfe  STORES  1h£  UNFORMATTED  GRAPHICS  ITERATIONS  PUN,.r 

26  C  FMAM7  Slopes  THE  UNFORMATTED  GRAPHICS  STATES  — — — — -  RUN..Z 


27 

28 

29  BYTE  FNAMl 

30  BYTE  FNAM2 

31  BYTE  FNAM3 

32  BYTE  FNAM4 

33  BYTE  FNAT1S 

3«  BYTE  FNAM6 

35  BYTE  FNAM7 

3b 

37  COHMOm/uSRFILC/PNAMI (b),ENAM2(7) ,EN4M3(7) ,FNAM«(7) ,FNAM5(7) *FNAMb(7)0 

38  1  FNAM7(7) 

59  COmmon/EVET4T/IEVE  'JT  (aOO, b)  ,NXTEVT 

«0  rOMMON/TPANS/ITRANS(«00,7),NXTTRN, IINTR.IISTOPEdOO) 

al  BYTE  TiAMES 

92  CCMM0N/NAME/M4MeS(a000),NXTNAM 

9 3  COMMr!M/lor4H/IOTAHL(9000)  ,NXTTRE 

99  1000  FORMAT!'  INITIALIZING  PROGRAM*) 

95  TYPE  1000 

9b  1002  format  (•  BEGIN  TEST-C-RAPh-NET *  ) 

97  TYPE  1002 

9P  .  2007  TYPE  2000 

99  2000  format  (’  •••->  input  file?  NAME  MUST  BE  ENTERED  AS:  RUNOl  -  BUN9o 

50  ACCEPT  2001,  FNAMl 

51  2001  FORMAT  (bAl) 

52  FNAMl (b)  s  0 

53  OPEN  (UNIT  s  I,  NAME  s  FNAMl,  TYPE  s  'OLD*,  ERR  *  2006) 

59  CO  TO  2009 

55  200b  TYPE  2002,  FNAMt 

5b  2002  format  (•  ERROR  OPENING  FILE  •,XbAI) 

57  GO  TO  2007 

58  2009  DO  2005  I  >  1,  5 

59  FMAM2(n  s  FNAMl(l) 

60  FNAMSCI)  s  FNAMKI) 
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b\  FNAVu( 1 )  s  FN4MI (I) 

63  FNAMSd)  =  FttAMI  (I) 

63  FtA^’eni  =  FnAmkI) 

6U  FMAM7(I)  =  FNAMt(I) 

65  2005  CONTINUE 

66  F^A^'^(6)  =  'A' 

67  FH4'<2(7)  s  0  ' 

6«  FN*f'3(6)  =  'B* 

69  FNamJ(7)  s  0 

70  FNAt'«(6)  =  'C* 

71  FNAM«(7)  s  0 

72  FNAK5(6)  »  'X* 

73  FMA'1S(7)  *  0 

74  FNAM6(6)  =  *7' 

75  FNAM6(7)  s  0 

76  FNAM7(6)  s  *2* 

77  FNAM7(7)  3  0 

78  NXTEVTst 

79  NXTTBNsl 

PO  nxTNAMsl 

81  tJXTTWE  =  l  • 

82  3000  FOHMATC  I N I T I At  12 AT  ION  COMPLETE*) 

R3  type  3000 

84  RETURN 

85  end 

86 

87 

88  SUeROUTlNE  OUMPPP 
8« 

90  C  OPENS  FMAM2  A  FNAMfl 

91  BYTE  FNAMt 

92  BYTE  FNAMa 

93  BYTE  FUAM5 

94  BYTE  FNAM4 

95  BYTE  FNAM5 

96  BYTE  FNAM6 

97  BYTE  FNA»7 

96  COMMON/USRFIlE/FNAMI (6) ,FNtM2 ( 7 ) , FNAM3 ( 7 ) , FMAMO (7 ) ,FNAM5 ( 7 ) ,FNAM6( 7 )l 

99  1  FNAM7(7) 

100  C0MM0N/EVEfJT7lFVENT{400,6),NXTEVT 

101  COMMON /TRANS /I TRANST 400,7 IrNXTTRN, II NTR, 11 STORE (100) 

102  COMMON/ IOTAB/IOTAPL (4000 ),NXTTRE 

103  BYTE  NAMES 

104  COMrUN’/NAME/NAMESf  4000),NXTNAM 

105  OPE'UUMI Tsl ,NAMErFNAM2,TYPEs'NEW* , IN  I T 1 ALSI ZEsOOOOO ) 

106  1000  FORMATC  NxrEVTs*,la) 

107  1001  F0PMAT(5x,618) 

108  WRI TE ( 1 , 1000)  NXTEWT 

109  00  1500  IsI,NXTEVT-I 

no  1500  t!»ITE(l,)001)  (IEVeMTfI,J),J  =  l,6) 

111  2000  FORMAT!/,  •  NXTTRNs*,l4) 

112  2001  F0RMAT(lX,7ie) 

113  i.RlTE(l,2000)  NXTTRN 

114  00  2500  Is|,NXTTRN-I 

115  bRlTEn,2001  )  (ITRANS(I,J),J=1,7) 

116  2500  CONTINUE 

117 

118  3000  FORMAT!/, •  I OT ABLE : * , /, 60 ( 1 0 1  4, /) ) 

119  WRITECI  ,3000)  (tnTAHL(I),IsI,NXT7RE) 

120  4000  FOHMaK/,*  names:  NXTNAM»',I4) 
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121  4001  FORMATlt, lOOAl) 

122  ^.PITf(  1,4000)  NaTMAM 

123  bPITk  (  1  .«001  )  (NAWESd),!*!  ,NXTNAM) 

12'4  5000  F0P'<AT(1H1) 

125  .JRITEI  1 .5000) 

126  CLOSE(UNITsl,OISPOSE=*SAVE') 

127 

12a  OPENdJMITsl .MAMEsFNAMS.TVPEs’NErt' , I  >4 1 T I Au SI ZE* 1 aOOO , 

129  1  F0R''=*U-,F0R'4ArTED‘) 

130  nPITECl)  (^4xrEvT) 

131  00  5001  l5l,NXievT-l 

132  5001  URITECn  ( 1 E VENI ( 1 , J) , jsj ,6) 

133  ttPITEd)  (NXTTRN) 

134  00  5002  Isl  ,?4XTTRiV-l 

135  5002  .»RITE(  t  )  (1  TRANS d ,  J) ,  J  =  l , 7) 

13e  wfilTEd)  TNXITRE) 

137  hRITE(I)  dOT48Ld).l  =  l,NXTTRE) 

13a  WRITECI)  (NXTNAM) 

139  wRlTEd)  ('4AwESd),Is|,NxTNAH) 

140  CLOSE  (iJMirsi,  disposes  •SAVE') 

141  RETURN 

142  ENO 

143 

144 

145  SUaROL'TINE  INPUTl 

146 

147  COMMON/SCAN/I.-.OROdS,  10), NUMBER 

148  8000  FORMAT (•  INPUT  bEGINS') 

149  8001  FORMAT! •  INPUT  COMPLETE*) 

150  rrPE  8000 

151  ISO 

152  call  SCANR 

153  call  XiNTGPd,!) 

154  00  1000  Jsl,I 

155  call  INPUTE 

156  1000  continue 

157 

158  call  INPUTT 

159 

160  2000  continue 

161  call  SCANR 

162  IF(  iaTCHS(1,*£N0*,3).£0.1)  GO  TO  3000 

163  IF(MATCMSd,’MARK*,4).E0.l)  CALL  MARKER 

16«  CO  TfJ  2000 

165 

166  3000  T7PE  8001 

167  CLOSE(UNlTsi,OISPOSEs*S»VE') 

168  RETURN 

169  end 

170 

171 

172  SUBROUTINE  INPUTE 

173 

174  COMMON/EVEMT/IEVENT(400,6),NXTEVT 

175  BYTE  I'aORD 

176  C0MMON/SCAN/l*OROd5,10),NUMB 

177  JaO 

178  C  HEAO  A  single  EVENT  LINE  FROM  INPUT  AND 

179  C  STuRE  IT  APPROPRIATELY 

180  call  SCANR 
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181  CALL  ST0NAMtl,lEVFNT(MxrEVT,n,IEVENT(NXTEVT,6)) 

182 

183  00  1000  Is2,4 

18(1  CALL  XINT(;9(I,J) 

185  1000  r£V£(jr(MxTfvr,i*i )sj 

186 

187  NXTEVTsNXTEVTtl 

188  IF(NXTEXT.GT.400)  GO  TO  9000 

189  return 

190  9000  TYPE  9900 

191  9900  FORfXATC  EWENT/PLACE  TABLE  OVERFLOW) 

192  CALL  EXIT 

195  RETURN 

194  £NO 

195 

196 

197  SUaRQOTINE  INPUIT 

198 

199  C0MM0N/rRANS/ITRAMS(400,7),NXTTPN, IINTR, nSTORE(lOO) 

200  8YTE  IXORD 

201  CO»"XON/SCAN/I/iOfiO(15»  1O),NUM0 

202 

203  1=0 

204  KSO 

205  CALL  SCANR 

206  call  XlNTGRd.I) 

207 

208  00  1000  Jsl.I 

209  CALL  SCANR 

210  CALL  ST0NAM(1,ITR4NS(NXTTPN,1),1TRANS(NXTTRN,7)) 

211 

212  DO  2000  L=l.3 

213  LLsLt3 

214  CALL  XINTGRfLAl/«) 

215  2000  1TRANS(NXITPN,LL)sK 

216 

217  CALL  SCANR 

218  call  ST0I0T(NUM8, rTRANS(NXTTRN,2) ) 

219  CALL  SCANR 

220  CALL  ST0I0T(.NUMB,ITRANS(NXTTRN,3)) 

221  NXITRNsNXlTRNtl 

222  IF<NXTTRN.GT.«0O)  CO  TO  9000 

223  1000  CONTINUE 

224 

225  RETURN 

226 

227  9000  TYPE  9900 

228  9900  PORWATC  TRANSITION  TABLE  OVERFLOW*) 

229  CALL  EXIT 

230  RETURN 

231  END 

232 

233 

234  SUBROUTINE  STONAM(n#iORO. NPOINT , KOUNT ) 

235 

258  C  STORE  string  'NhORO*  FROM  SCANNER  INTO 

237  C  name  TAPLE  and  return  A  POINTER  ’NPOINT’ 

238 

239  BYTE  IWORO, NAMES, BLANK 

240  COMMON/SCAN/IiYORO(I5,  10),NUMe 
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2ttl 

242 

245 

244 

245 

246  lOUO 

247  2000 

248 

249 

250 

251 

252  3000 

253 

254 

255 

256 

257 

258  9000 

259  4900 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269  C 

270  C 

271 

272 

273 

274 

275 

276 

277 

278  1000 

279 

280 
281 
282 

283 

284  9000 

285  9900 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 


CO'*«ON/MAVE/NA:^ES(4000)  ,NXTNAI4 
DATA  8LANK/1H  / 

DO  1000  1=1,10 
KOUNTsI-1 

IF(IrtORO(N<OP£>,I).£O.BLANK)  GO  TO  2000 

CONTINUE 

CONTINUE 

IF(N*TNAM*K00NT  ,GT.4000)  go  TO  9000 

00  3000  I=l,KOUNT 
NAMES(NXTNA--1tI-l  )slaORO(NMOPO,I) 

NPOINTsNXTNAM 

nxtnam=nxtnam«kount 

RETURN 
TYPE  9900 

FORMAT!  •  NAME  TABLE  OVERFLOW) 

CALL  EXIT 

RETURN 

END 


SUBROUTINE  STOIOTINUMBER.LINK) 

COMflON/IOTA8/IOT4eL(4000),NXTTRE 

STORE  INPUTS  and  OUTPUTS  OF  TRANSITIONS 
IN  TmE  lAbLt,  RETURN  THE  LINA 

IF(NXTTRE*NUM9ER  ,GT,  4000)  60  TO  9000 

KsO 

on  1000  1=1, NUMBER 

CALL  XINTr,R{I,K) 

J=(NXTTRE-l)+r 

IOT40L(J)=K 

LINKsNXTTRE  ' 

NxTIRE  =  NXTTREtNI|MBER 
RETURN 

TYPE  9900 

FORMatc  10  TABLE  OVERFLOW  (TRANSITIONS)') 

call  EXIT 

RETURN 

ENO 


SUBROUTINE  MARKER 

COMMON/EVENT/IEVENT(400,6) ,NXTEVT 
1  =  0 
J30 

CALL  XINTGR(2,I) 
call  xINTGB(3,J) 

IFd.LT.l  .OP.  I.GT.NXTEVT)  RETURN 

IEVENT(I,2)sJ 

RETURN 
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301  ENO 

302 

303 

304 

SOS  SU9P0UTINE  «0VEM£T(NTIKES) 

306 

507  C  EXECUTE  THE  PETHI-KiET  'NTlMES*  OB  STEPS 
308 

509  CQ*-'''OM/’Tfi»MS/nRANS(uOO,  7)  ,*lxTTfiN,  III^TR,  nSTOBEdOO) 

310  C0MW0N/EV£fir/IEVeNT(400,6),MXT£VT 

311  BYTE  FMAMl 

312  BYTE  FNAM2 

313  BYTE  FNAM3 

314  BYTE  FNAH4 

315  BYTE  FNAMS 

316  BYTE  FMAM6 

317  BYTE  FNAM7 

318  COfxXON/USBFILE/FNAMl  f  6)  ,FHAM2(7)  .FUAWSITI.FUAPAITWFNAHSIT)  ,FXiA'A6(7)' 

319  1  FNAP7(7) 

520  DATA  ITIPE/1/ 

321 

322  1000  FOB'^ATC  EXECUTIfiC  TIPEr'^Ia) 

323 

324  OPEMlUMTsl  ,^AS'E=FnAM3,TyPE5*MF»*  ,  IMI T  I  AUS  UEs  1 20000) 

325  0PE''l(iJMlTs2,NAVEsFt.AM6,TYPEaM«i£«*  .FORMs'UNiFORMATTEO*  , 

326  I  lMiriAl.SI2E3l20000) 

327  OP£K'(UNl  T  a3,N&N>t=Ft*AX-.4,  TYPES 'NEa'  ,  1MTIALSIZC  =  12000) 

328  0»E^4(UNlTsu,(<AHesF»IAM7,TYPEs'At£W  ,FORVs•U^FORMATTEO•, 

329  1  r\lTIALSI2Esl2000) 

330 

331 

332  00  2000  Ial#NTIMes 

333  type  tOOO.ITlME 

534  IlMTBaO 

335  CAUU  HOVE 

336  lOg  FORMAT (3512) 

337  nRlTE(1.106)  ( lEVENT ( J , 2) , Js 1 , NXT£VT*l ) 

538  »«IT£(2)  (1EVEM(J.2),J  =  1,NXTEVT-1) 

339  lu7  F0RVAT(I3) 

340  'aPirE(3,107>  IINTR 

541  108  FOOHATdOorS) 

542  HRir£(3,109)  dlSIOBE(J),  Jsl, IINTR) 

343  WR1T£(4)  IINTR 

344  a4ITE(4)  (nST0RE{4),J  =  l, IINTR) 

345 

346  ITf'EsITIMEf 1 

347  2000  CONTINUE 

348 

349  CLnserUNIT=4,0ISP0S£s'SAVE* ) 

350  CLOSE  (Utl  I  T  =  3.01  SPOSEs*  SAVE*) 

351  CLOSE  CUN  I Ts2,orSPOSEs* SAVE*) 

352  CLOSE (UNITS  I, disposes* SAVE*) 

353 

354  RETURN 

355  ENO 

356 

357 

358  SUBROUTINE  HOVE 

359 

360  C  EXECUTE  TNE  NET  ONE  STEP 
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361 

362 

363 

364 

365 

366  C 

367 

368  0500 

369 

370 

371  0600 

372 

373 

374 

375 

376  0800 
577 

378 

379 

380 

381 

382  1000 

383 

384 

385 

386 

387 

388 

389 

390  C 

391  C 

392 

393 
3«4 

395 

396 

397  C 

398 

399 

400 

401 

402 

403 

404 

405 

406  1000 

407 

408 

409 

410 

411 

412 

413 

414 

415  C 

416  C 

417  c 

418  C 

419  C 

420  C 


COMk^OM/THANS/ITSA  •lS{400,7),NXTTRri,  IlNTR,  IISTOREl  100) 
OIN'ENSION  »'1RKS(400) 

ITESTsO 

CHECK  ALL  transitions  TO  SEE  rtHICM  ARE  ENABLED 

00  0500  lsl,N<TTRN-l 

mARxS(I)sNA8LEO(1) 

DO  1000  I=1,NXTTRN-1 

lF(  .«ARKSf  n  .EQ.O)  GO  TO  1000 

FORV'ATC  OTNA^'tlC  CONFLICT,  TR#s*,I4) 

IFINABLEOTn.EQ.l)  GO  TO  0800 
TYPE  0600,1 
GO  TO  1000 
CONTINUE 

CALL  U^.^»APK(I,IIE3T) 

IFdTEST.EG.n  GO  TO  1000 
IINTRsIlNTR+l 
I1STORE(IINTR)sI  . 

CALL  '^ARkEMID 
CONTINUE 

RETURN 

END 


FUNCTION  NAdLEOlNUMBER) 

RETURN  1  IF  TRANSITION  •  ‘NUMBER’  IS  ENABLED,  READY 
TO  FIRE,  ELSE  RETURN  0. 

COMMON/ TRANS /I  TRANS (400, 7), NX TTRN 
COM«ON/F  ve  N  T/IEYENT(400,6),NXTEVT 
COMMO.l/ JorAB/rOTAdL(4000),NXTTRE 

CHECK  LIST  OF  INPUTS  TO  SEE  IF  ALL  ARE  MARKED 

MARKSO 

IPTsnHANS(NUM6ER,2) 

KOUNTslOTABLdPT) 

on  1000  IsIOTtl,IPTtKOUNT 
NEVEMsIOTABLd) 

IFdEVE''IT(NEVtNT,2).GT.O)  MARK=MARK»1 

continue 

NABLEOsO 

IFIkOUNT.EQ.MARK)  NABLEDsJ 
RETURN 
END 


SUBROUTINE  UTMARK (NUMBER, TERROR ) 

unmark  (IE.  DECREMENT  THE  NUMBER  OF  TOKENS 

ALL  OF  TmE  input  EVENTS  TO  TRANSITION  4  ’NUMBER' 

RETURN  IERROPsO  . UNLESS . 

ONE  EVENT  IS  A  MULTIPLE  INPUT  OF  IHE  SAME 
transition  and  nE  UONT  HAVE  ENOUGH  MARKERS. 
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921  C 

422  C 

423  C 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 
43b 

437  1000 

438 
4  39 

440  2000 

441 

442 

443  3000 

444 

445 

446 

447 

448 

449 

450 

451  C 

452  C 

453  C 

454 

455 

456 

457 

458 

459 

460 

461 

462  1000 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474  0001 

475 

476 

477  C 

478  C 

479  C 

480  C 


iUhtM  IHIS  happens,  9EPLACE  ANY  REMOVED 
tokens  and  return  lERRORsl. 

CnMMON/EvENr/lEv£Nrfa00,6),NXTEVT 
CO'VION/TRA.JS/l  TWANS(400, 7)  ,IJXTTRN 
c  IOTAS/ I  0TA6L(  4  000),  NXTTRE 

IPT  =  ITRA,\(S(NUMeER,2) 

KOUNTsIOTABLdPT) 

lERRORsO 

DO  1000  I=IPTa1,I?TaKOUNT 
NEVENTalUTABLd) 

J  =  I 

lEvENTMEVENT  ,2)2lEVENT(NEVENT,2)-l 
IF<IEVENT(UEVENT,2).LT.O)  CO  TO  2000 

continue 

RETURN 

continue 

00  3000  IsIPT*l,J 
NEV£NT  =  IOTABLd) 

lEVENTINEVtNT ,2)sIEVENT{NEVENT,2)+1 
lERRORsl 

RETURN 

END 


SU0ROUTINB  M4RKE»*(NUMeER) 

MARK  ACL  OUTPUT  EVENTS  OF  TRANSITION  4  'NUMBER* 

CO«moN/£VENT/IEVENT(400,6),NXTEVT 

C0'-'«0M/TRAnS/ITPANS(40O,7),NXTTRN 

CON'-’ON/I0T48/IOTABl(4000),NXTTRE 

IPT  =  ITRA:'IS(NUX8ER,3) 

KOUNTsIUTABLdPT) 

00  1000  IsIPT*1,IPTaK0UNT 
NF.VENtsIOTABLd) 

IEVEMT(NEVENt,2)sIEVENT(NEVENT,2)tl 

RETURN 

END 

subroutine  SCANR 

BYTE  IrtORO. ISCrIBLANK 
COMMON/SC  AN/  I<*ORO  ( 15,10),  NUMBER 
BYTE  NHUFFR 

C0MM0N/SCANl/NfJUFFP(80) 

DATA  ISC/IH;/ 

DATA  IBLANK/IH  / 

FORMAT  C80A1  ) 

Rf  AIM  1 ,0001  ,ENOs99go,ERRs9999)  ( NBUFFR (I ) , I*! , 80) 
IPOlNTsl 

SET  POINTER  TO  FIRST  CHARACTER  IN  THE  BUFFER 

NOiV  PROCESS  The  FIRST  15  TOKENS  DELIMIIEO  BY  EITHER 

A  BLANK  (OR  multiple  BLANKS)  ON  A  SEMICOLON. 
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U01  00  0002  NUMBERsl.lS 

902  IFL4GS0 

903  C  SET  I.409D(NUKflE».X)sIBUANK  (SET  WORD  TO  ALL  BLANKS) 

909  DO  0003  1=1,10 

905  0003  I.iQRDfL"JPHeR,l)  =  IBLANK 

906  C  start  scanning  line  from  pointer  on  to  find  N0N-3CANK 

407  K0U'IT  =  1 

980  C  "KOUNT*  KEEPS  TRACK  OF  THE  NO.  OF  CHAR.  IN  THE  TOKEN 

909  00  0009  KP0INT=rP0INT,80 

990  IF{NHUFFfi(KPOINT).NE.IBLANK  .AND.  NBUFFR ( KPO I NT ) . NE . I SC ) 

991  1  GO  TO  0005 

992  1F( IFLAG.EQ.O)  GO  TO  0009 

493  IFdFLAG.EQ.n  GO  TO  0006 

999  0005  continue 

995  IFLAGsl 

996  t WORD ( NUMBER, KOUNTlsNAUFFR (KPO INT) 

997  K0UNT=K0UNT*1 

990  IFCkOUNT.GT.IO)  GO  TO  0006 

999  0009  CONTINUE 

500 

501  0006  CONTINUE 

502  C  END  OF  TOKEN  FOUND,  RESET  SOME  POINTERS 

503  IPUIUTrKPOINTfl 

509  IF ( IPOINT.GT  .00)  GO  TO  0010 

505 

506  0002  CONTINUE 

507  C  END  OF  BASIC  TOKEN  GETTING  LOOP 

500 

509  0010  NUM0ER=NUM8£R-1 

510  RETURN 

511  9999  CONTINUE 

512  C  £Nf>  OF  file  or  I/O  ERROR  DETECTED 

513  RPO0  FORMAT!  •  EOF  OR  ERROR  ON  SCANNER  INPUT  FROM  UNIT  !•) 

519  type  9998 

515  NUMRERsO 

516  RETURN 

517  END 

510  ' 

519 

520 

521  SUBROUTINE  XINTGR (NWORO, IVALUE) 

522 

523  C  CONVERT  THE  ENTRY  IN  "IwOPD"  TO  INTEGER 

529  C  RETURN  INTEGER  "IVALUE* 

525 

526  BYTE  IWORO 

527  COmmon/SCAM/IWORO(I5,1O),NUM0ER 

528  BYTE  TSTRNG 

529  DIMENSION  TSTR.NCdO) 

550  BYTE  I9LANK 

531  DATA  IBLANK/IH  / 

532  DO  0001  1=1,10 

533  KOUNTsI 

539  TSTRriG(I)  =  lKORO(NilORO,I) 

535  IF(InOHD(NaORO,I).EQ.IBLANK)  GO  TO  1000 

536  0001  CONTINUE 

537  1000  CONTINUE 

530  kOUNTsKOUNT-1 

539 

540  2009  FDRMATIX.lOAl) 
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2005 

FOR'-'ATIX.IIIO) 

5a2 

00  2006  I:l<K0UNT 

5aJ 

J=Il-l  ' 

5ua 

K  =  (r<0UNT*  1  )-I 

545 

200o 

TST0i^lG(  J)  =  TSTRNG(K) 

546 

L=1Q-K0UNT  ^ 

547 

DO  2007. 1=1, U 

548 

2007 

TSTRNG(I)=iaLANK 

54Q 

0‘»E\(UNIT  =  2,rjAME  =  *IS7  0RE’,TYPE=’MErt'  ,  I NI T I  4LSI  ZE  = 

550 

rtPIT£(2,^004)  (TSrRNafI),l=1.10) 

551 

CL03t(UMIT=2,0ISP0SE'“sAVE*  ) 

552 

0PE''J(UNIT=2/N4«E=*  ISIORE*,  TYPE  =  '0L0‘  ) 

555 

RE40(2,2005)  IVALUE 

554 

CLOSE ( UN  I T  =  2, DISPOSES • delete  • ) 

555 

RETURN 

556 

ENO 

557 

558 

550 

FUNCTION  MATCHS(NUwe,STRING,NCHAR) 

560 

561 

C 

This  fijijction  oeter«imes  if  scanner  token 

562 

c 

I.VOPO(NUVg)  XAIChES  THE  CHARACTERS  IN  "STRING’ 

563 

c 

AT  LEAST  FOR  ThE  FIRST  "NCHAR"  CHARACTERS. 

564 

565 

c 

IF  there  IS*4  MATCH,  IT  RETURNES  THE  INTEGER 

566 

c 

NO  match  returns  "0*. 

567 

568 

PYTE  leORO 

560 

COmmon/scan/IwOROI 15, 10 >, NUMBER 

570 

SYTE  string 

571 

OtMENSrON  STRINC(IO) 

572 

MATCHSsO  « 

573 

574 

00  0001  1=1, NCHAR 

575 

IF(IivORO(NU«B,I).riE.STRING(I))  RETURN 

576 

0001 

CONTINUE 

577 

578 

c 

IF  YOU  GET  HERE,  TH£y  aERE  THE  S4ME.., 

570 

MATCHSsl 

580 

RETURN 

581 

ENO 

582 

583 

m 

584 

c 

ENO  OF  PROGRAM  SIMULATOR 
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1  • 

S 

5  . . . . . 

a  /.««<«•<*»«**>*>*««*•»*»*•***«*•*>••***•«**•>*«•*•*«***»**/ 

5  /♦*•***•»  ********/ 

6  /*•*!>**«*  PROGRAM  TRANSGRAPH. C  ».»**»»*/ 

7  /»»**♦»**  **««****/ 

a  /«;««««»*  STEPHEN  C.  JENNINGS  JC91  USKC  •»*.*».»/ 

9  /.***<***  ROBERT  J.  HARTEL  CS91  USA  *•<,*»»*»/ 

10  /**•«««**  ********/ 

11  /**•***•*  written  fall  quarter  1979  ********/ 

12  /*****«•*  NA\/AL  POSTGRADUATE  SCHOOL  ****«*«»/ 

13  MONTEREY,  CALIFORNIA  ***>**•*/ 

1«  /•*.<***•  «****•**/ 

15  /ft******««*****«***«**44,«)lit*******, **********************/ 

16 


17 

1« 

19  /•****•>»««>**,.*<.<•*»«•.«*•****/ 

20  /*•  External  declarations  *•/ 

21  /**********>••***••***•«**•**«**/ 
22 

23 

29  LITERALS  •••/ 

25 


26 

sdef i ne. 

header 

tt 

27 

«def i ne 

D i ct  ures 

50 

28 

Sdef i ne 

bounds 

100 

29 

Sdef i ne 

limit 

500 

30 

31 

32  /**•  structures  »*•/ 

33 

39  atPuet  I  /*  data  structure  information  on  net  nodes  . 

35 

30  i nt  e  t  r \  1  J 

57  int  namertr* 

38  int  marker; 

59  int  xcord; 

00  int  reord; 

01  int  o i o  t ; 

02  int  length; 

03 

00  Ifilel  Choundsl ,  »hpi;  oointer  into  data  structure  ............. 

05 

06 

07  struct  '■  /•  data  structure  informatinn  on  transitions 

08 

09  inf  c  t  r 1 2 ; 

50  i  nt  t  rnot  r ! 

51  int  i nt  rn ; 

52  int  outfrn; 

53  int  ««cpr'i; 

5a  int  vycord; 

55  i nt  t  rno lot; 

56  int  trnlen; 

57 

58  )file2  tbounds) ,  *602;  /•  oointer  into  data  structure 


s*ore  control  char  not  used  in  oroqram  ...  »/ 
/•  innex  to  names  array  .....................  */ 

/*  cointer  to  incuts  fcr  a  transition  .  *f 

/•  oointer  to  outputs  for  a  transition  ......  •/ 

/•  »  coroinate  of  transition  ................  */ 

/*  y  coroinate  of  transition  .  »/ 


/•  wnether  or  not  transition  is  to  be  olotteo  */ 
/*  lenoth  of  name  associated  with  transition  *f 


store  control  char  not  used  in  orogram  ...  */ 


/•  innek  to  names  array  .....................  */ 

/•  initial  marker  state  of  the  network  ......  »/ 

/•  «  coroinate  of  olace  . .  */ 

7*  y  cordinate  uf  dace  .....................  */ 


7*  whether  or  not  dace  is  to  be  dotted  ....  *7 
7»  length  of  name  associated  with  olace  .....  •/ 
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61 

INTEGERS 

62 

63 

i  nt 

al.a2fa3>a4; 

/* 

64 

i  nt 

buf  f er [ooundsl J 

/* 

65 

i  nt 

cntrl (11 ; 

/• 

66 

i  nt 

ct  roverf 1 ow; 

/• 

67 

i  nt 

d  f  1 1  c  g  1 0  r ; 

/• 

68 

i  nt 

fdfbuf ; 

/• 

69 

<  nt 

fdobut; 

/* 

70 

i  nt 

tiring  (bounds! ! 

/• 

71 

i  nt 

ictr; 

/• 

72 

1  nt 

i events. 

/♦ 

73 

i  nt 

(flag: 

/* 

74 

i  nt 

iotblllimiti; 

/» 

75 

i  nt 

kpi c  t  ures • 

/* 

76 

i  nt 

1 inktbl  (1001  (41  ; 

/* 

77 

i  nt 

nbrol ot ; 

/* 

78 

i  nt 

nbvtes (21 ; 

/* 

79 

i  nt 

overtlowtbl  (1001  (2): 

/» 

80 

i  nt 

set; 

/* 

81 

i  nt 

stlag(20]  : 

/• 

82 

i  nt 

tbl ct  r; 

/• 

83 

i  nt 

uniuuetd  (1001  (41  ! 

/* 

84 

i  ot 

vers: 

/• 

85 

86 

87 

/*** 

characters 

88 

89 

tbut (201 ; 

/* 

90 

Ch«r 

gbut (201  : 

/* 

91 

Ch«r 

names  (  M  m  i  1 1  ; 

/* 

92 

sern; 

/• 

93 

global  storage  tor  each  data  structure  */ 

butter  into  xhich  each  trame  is  read  .....  •/ 
variable  containing  «  transitions  tired  ..  •/ 

keen  tracif  ot  nodes  overtlo"  status  .  */ 

a  default  color  tor  indicating  overflows  .  */ 

tile  oescriotor  tor  PUN..t  tiles  . .  •/ 

file  oescriotor  tor  PUN..Z  tiles  ......... 

storage  info  which  tired  daces  are  read  .  •/ 

counter  oassed  to  a  function  .  */ 

number  of  non-  &  disdavable  nodes  .......  */ 

counter  for  the  interrupt  mechanism  ......  •/ 

forms  i nout -t o-out out  relationship  .......  •/ 

counter  for  the  iterations  ot  the  network.  */ 

version  I  H  2  screen  nodes  locations  .  */ 

counter  for  number  of  disolaved  nodes  ....  •/ 

store  count  fields  tor  data  structures  ...  •/ 
data  structure  to  store  overflow  locations  */ 
user  selected  conrac  graphics  screen  .....  */ 

saves  flag  for  later  use  by  trnliteC)  ....  */ 

a  counter  for  version  5. .reset  conditions.  •/ 
reset  table  locations  tor  version  J  ......  •/ 

user  selected  option  .  */ 


butter  to  store  name  of  second  tile  .  •/ 

butter  to  store  name  ot  third  tile .  »/ 

Character  array  tor  node  labels  .  */ 


option  variable  for  display  to  the  screen.  */ 


OS 

90  /•«  FIJNCTIflM  PAIM  **/ 

97 

98 

99  mai n  (  ]  1 
100 


101  e»tern  ruboutClJ  /•  declare  *rubout'  globally  ................  */ 

102  initC):  read  incut  file  . . . . 

103  determine()»  /•  verity  it  user  wants  to  see  data  structure  *f 

104  disnIavC);  disdav  input  to  crt  ..................... 

105  selectCl;  /•  select  version  of  simulation  K  oenisco  set 

lOo  prepare(2):  /•  prepare  oenescc-conrac  . 

107  drawnodef);  /•  oraw  network  nodes  on  conrac  . •/ 

108  dacesC);  /•  verify  correct  nooes  drawn  .  •/ 

109  trnslinkC);  /•  function  displays  network  transitions  .... 

110  imark();  /*  starting  status  of  network  packets  . .  »/ 

111  s i ana  1 (? f rubout I ;  /•  sets  'yPh'  as  interruot  . . */ 

112  markinatl;  /*  successive  iterations  of  network  flow  ....  */ 

113  qnfiniO;  /♦  closing  out  oraohics  facilities  . .  •/ 


119 

115  1 

116 

117 

118 

119  /«»  PROGRAM  FUNCTIONS  *•/ 
lao  . . . 


120 
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1?1 

122 

123  cause  (peroi 'll  ( 

12«  /*  function  necessary  as  sleeoO  not  compatible  with  signalO  */ 

125  i nt  i >  i  >  k : 

126 

127  printff“»»*>>interruot......"); 

12B  fop("i=Ofi<oeroioJitt)  < 

129  f or ( j so; i<«oo; j ♦♦)  < 

130  for(ksO:i><tOOO;ii«*)  { 

131  > 

132  > 

133  > 

139  pr i nt f (** ••>>wai t  ; 

135  return; 

136  > 

137 

138 

1 39  rubout ( )  ( 

190  /•  function  enables  the  ’brk*  key  as  the  interrupt  signal  •/ 

191  char  halt: 

192 

193  space(2); 

199  or i nt  f 

195  ("»•*>>>  received  s i gnal . . . f rame  number  Zd...<ret>  to  continue  \n“, 

196  (iflaak2)); 

197  ori nt  f 

19fl  (•«**>>>  for  termination  of  prooram. . .type  ’brk*  from  console  \n*); 

199  while  ( ( hal t soet char ( ) ) 1  a • \n • 1  < 

150  /*  dO"nothiog  loop  */ 

151  > 

152  s ignal ( 2« rubout ) ; 

153  return; 

159  1 

155 

156 

157  soace(  returns)  i 

150  int  i; 

159 

160  for  (isO;  ikreturns;  itt)  { 

161  or  I nt  f ( "So")  ; 

162  ) 

163  return; 

169  ) 

165 
1  60 

167  ini t ()  <  . 

163  /•  function  ooens  unformatted  file  R  initializes  start  condition  •'/ 

169  int  a » bu f c t r » coun t » f d» i » j ; 

17(1  char  cbu f  (20 1  » c »  f  ; 

171 

172  sosce(2); 

173  print  f  ("***-»TP;'fSGkSPH  ILHlSTPATfS  PETf>IMf.t  S  T  VlIL  AT  I  Ofi  MODELS"); 

1 79  space ( 2 ) : 

175  print f ("•••-»( NTER  fhE  h-AwE  OF  THE  FILE  TO  HE  PWOCESSEO. .RUT  \n"); 

176  prinf<{"  SOTF  iHtT  THIS  FRE  POST  HE  Ah  ilt.FOPt’.Al  TED  FILE  \n"); 

177  printff"  PPOnuCFO  AS  A  RESULT  OF  EXECUTING  s i mul ator .out  So")) 

178  printfi"  tHE  LAST  LETTER  OF  aHICh  MUST  EMO  IM  LETTER  ’X*  \n"); 

179  errer:space(2) ; 

180  printf ("»••->*); 
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18t 

182  i=0; 

183  whi le( (c  =  getehar( ))  1=  •\o*)  1 

188  cbuflilse! 

185  Itt; 

18b  1 

187  cbuf4n=*\0'S 

1  88 

189  bufctrsl; 

190  f or( i =o; i 'hufet p: !♦♦)  ( 

191  aouf I i I = f bu f ( j 1 =cbu^  ( j ) ; 

192  i  f  (ebuMJ  1  as’X*  )  < 

193  fouf t jl s*y*; 

198  oouMils*/*; 

195  Qbu*  I  j ♦ 11 sfbuf t j *11  =  ‘\0‘ ; 

19b  jsbufetp; 

197  1 

198  1 

199 

200  fa  -  ooen (cbuf « 0 1 ; 

201  i f  ( fa  <=  0)  1 

202  OP i nr f ( *  * » •->eppOP  occupped  in  ooening  file...tPv  aaain*); 

203  soace(3): 

208  goto  eppopj 

205  I 

20b 

207  if((count  s  read! fo>nby tes>headpp) )  !=  headep) 

208  opi nt f ( "eppop  oeeuppeo  in  nbytes  read*): 

209  ievents  *  (nbytesdl  -  1): 

210  at  8  nbytea  Ill < 

211  a  s  fnhyf es (11 -1 )*18: 

212  if((eount  s  peart( fa» f i 1  el »a) )  1*  a) 

213  DPi nt f ( "ePPOP  oeeured  in  ftlel  pead")* 

218 

215  i f ( (count  speadifo^nbyresfhpaderlllsheader) 

2lb  oPi nt f ( "erpop  occurred  in  nbytes  reed"): 

21 7  aPsnbytes  (11: 

218  e8(nbvtes 1 1 1 -1 ) ‘lb: 

219  if((count:pead(fd>file2>a))!=a) 

220  OP i nt f ( "« prop  occurred  in  file2  read"): 

221 

222  if((counrspead(fd»nbvtes.beadep))!=headep) 

223  OP i nt * ( "e r POP  pccurred  in  header  read"): 

228  aSsnbvtes  111: 

225  a= (nhy t es 1 1 1 ♦ 1 1 *2 ; 

22b  if((countsread(fa»iothl»a))l=a) 

227  OP i nt f ( "errc r  occored  in  iotbl  read"): 

228 

229  if((count=rea'ilfo»nbvres»heedep))lsheadep) 

230  orint f ( "error  occurred  in  header  read"): 

251  a8snnyte8  111: 

252  a»nhy  t  es  ( 1 1 f  1  < 

233  it((eounfsread(fd*nar>es»a))!=a) 

238  or i nt f { "error  occurred  in  naees  read"): 

235 

23b  close(fd): 

237  return: 

238  ) 

259 

280 
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291 

detepmineO  ( 

292 

i  nt  t  J 

293 

char  dtdbuf  120] } 

299 

295 

SP8Ce(2) ; 

296 

orintf  'OETEBMINE*  ALLOWS  THE  USER 

Nn*); 

297 

orirttfC  to  EKfiMIhE  ALL  PRIMARY  DATA  STRUCTURES*); 

298 

over:soacet2); 

299 

orintf ("»**->IF  THIS  FEATURE  IS  DESIRED  TYPE  1  IF 

NOT  0,...<RET>*) 

250 

SD8CeC2): 

251 

or i nt  f ( "•»*->*) ; 

252 

253 

i  so; 

259 

wh i 1 e ( (d=Qet char ( ) ) 1  a • \n • )  < 

255 

dbuf (i ) sd; 

256 

i  +♦ ; 

257 

) 

258 

dbuT  til='\0’; 

259 

260 

iso; 

261 

Mhileldbut  in !  =  *\0' )  ( 

262 

d  =  dbuf  in ; 

263 

sw 1 t ch ( q)  ( 

269 

case  'O': 

265 

scrns'O'; 

266 

breaw; 

267 

case ' 1  ‘ : 

268 

sc  rns  •  1  •  ; 

269 

print ♦ ("•*»-*USE  CONTROL  0  WHEN  SCREEN  FULL"); 

270 

treak; 

271 

def au) t ; 

272 

pr i nt ♦ ( **»»->ei ther  blank  or  invalid 

tntrv"); 

273 

ooto  over; 

279 

break; 

275 

) 

276 

i 

277 

> 

278 

return; 

279 

) 

280 

281 

282 

displavO  t 

283 

i nt  i  ; 

289 

295 

i t (scrnss' 1  •  )  ( 

286 

schce (2 ) ; 

287 

to  1  s  1 1 1 • 1 ; 

?8« 

print t ("»••->  FILM  OATA  STRUCTURE*); 

2R9 

snacel?) ; 

290 

C r i nt ♦ ( *  1 ntred  »  narker  vcord  vcord 

plot  lenqth  Nn' 

291 

tor  (isC;i<al;  itt)t 

292 

rrintf(*::q  \t  Xrt  \t  7'i  Nt  in  Nt  Xd  Nt  td  \t 

Xrt  Nt  Nn*f 

293 

bDl”>rtrl  I  ,rirl  ->na"‘ept  r,  bpl”>n>arker»hnl- 

•>«corrt» 

299 

hpl->vcbrd»tp1 ->ot  ot  »bol-» 1 enqt h ) ; 

2«»5 

hoi ; 

296 

) 

297 

299 

soaee(2); 

299 

bp2  *  tii*2; 

300 

printf (*•••->  FILF2  DATA  STRUCTURE"); 
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301  spaceC?}; 

302  DP i nt ♦ 

303  ("Infeed  tpnptP  intpo  outtrn  xxcoPd  vycoPd  tpnplot  tpnien 

300  top  (i=0;i<a2;  (♦♦)( 

305  opintt("%d  \t  %d  \t  Xd  \t  Xa  \t  *d  \t  Xd  \t  Xd  \t  Xd  \t  \n", 

306  bo2->ctPt2,bo?->tPnptp,bD2->intPnfbp2->oultPn» 

307  .  bo2->x*eoPd*bo2”>yvcoPd»bD?”>t pnpl ot »bD2->t pn1  en) ; 

308  bp2»t» 

300  ) 

310 

311  SDace(2l: 

312  ppintf (*»••->  IQT8L  DATA  ARRAY"); 

313  space(2): 

310  fOP  (i=0;  i<a3;  (♦♦)  ( 

315  ppintf("Xd  ",  (otbl HI); 

316  > 

317 

318  $pa6e(2J; 

310  ppintf ("»*•->  NAMES  DATA  ARRAY*); 

320  scace(2); 

321  fop  (i=0;  i<ao;  (♦♦)  ( 

322  DPintf("Xc“/ names  til); 

323  ) 

320  SDace(2); 

325  1 

326  return; 

327  1 

328 
320 

330  prepapelf ypn)  < 

331  f*  function  designates  setf  screen  site  and  colon  table  •/ 

352  int  n»t»y; 

333 

330  yaO; 

335  oeniseo  (set);  • 

336  eraseO; 

337  screen (0.0, 0.0, 51 1.0,511.0); 

358  set  nod ( t ype ) ; 

35®  coItabO; 

3«0  col oPt (11); 

301  f OP (na 1 2: n< 1 o; nf t )  ( 

302  colop(n); 

303  f or ( t =0 ; P <5 1 2; t ♦ ♦ )  ( 

300  seamn t ( 0 , y t r , 5 1 1 , y «t  )  ; 

305  ) 

300  ) 

3J7  return; 

508  1 

300 

350 

551  draenodeC)  < 

352  /•  function  displays  type  %  location  of  network  nodes  */ 

553  char  c , ‘npt r , no  I d; 

550  int  a , h, c 1 p I h I , coun t ,d, ent ry , h , i , j , k , I , t es t , X , y , *t ; 

355  float  s; 

356  doubi e  sgrt ( ) ; 

357 

358  bPl  a  f i Ici; 

350  aao; 

360  count  =  l; 
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361 

362 

363 
360 

365 

366 
567 
36M 

369 

370 

371 

372 

373 
370 

375 

376 

377 
370 

379 
300 
381 

302 

303 

380 

385 

386 

387 
300 
309 

390 

391 

392 

393 
390 
395 
596 
397 
390 
399 
000 
001 
ooa 
003 
000 
005 
006 
007 
000 
009 
010 
Oil 
012 
013 
OlO 
OIS 
016 
017 
010 
019 
020 


wh  i  I  e  (  ( tear  =  CbDl  -  >nan>eot  e)  11*0)  ( 

col  or (10); 

test 

{  =  &na<nes  Iteatl  • 
e  =  »*; 

If  ( tbsftjDl->plot ))  is  0)  ( 
sui t  cn  (c  )  < 
ease  *I‘: 

«  =  (bol •>«e6rd) * 

V  =  (*“rl«>veord); 
for(d=o;a<lO;de»)  ( 

seoeint  (»“16»y*2*d»XfV  +  2rd); 

) 

I Inktbl  lal  (31sl; 
break  > 
case  '0*: 

*  ~  (bol »>kCOrd) » 

V  ~  (bol ->vcord) ; 
for(ds0;d<10;d»r)  ( 

seooint  («*16>y“2“rt»k»y“2“d)J 

> 

1 inktbl (a)  13) *1 ; 
break; 

case 

X  s  (on* •>xcord) ; 
y  s  (be) •>ycord) ; 
for(d=0;d<3i;da»)  ( 
sedwbt 

(k“10rd/o,yrl5"d»krl6*d/o»y+15-d) 

) 

elrlbisio; 

labellkxy^testfClrlbl); 
break ; 
ease  'S’: 

*  =  (bPl->keord) ; 

V  s  (bo) ->ycord) 7 

f or ( ds0;d<51 ; dr*)  1 

sedimt (k-)3*y-15ad»*tlP»y~15td); 

) 

«f{verf=s3)  I 

bbtrs  hnanes  1 1 est a  11 ; 
bold*  ‘bbtr; 
eiribisatoi (iho'd); 

) ebe l(»,v»tesr»elrlbI)J 

col  or ( 1 0) ; 

I 

else  1 

clriblsto; 

I  abel  (»»v»restrelrlH); 

) 

break ; 
ease  ’I*; 

*  =  (bol->icord) ; 

V  s  (br I ->ycord) ; 
for  (kso;k<19;k+*)  ( 

%sy; 

«s(k-(sdrt(320.-s*t)))) 

isyas; 
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aai 

022 

423 

424 

425 

426 

427 

429 
424 

430 

431 

432 

433 

434 
4J5 

436 

437 

439 
434 

440 

441 

442 

443 

444 

445 

446 

447 

448 
444 

450 

451 

452 

453 

454 

455 

456 

457 

458 
454 

460 

461 

462 

463 

464 

465 

466 

467 
4a9 
464 

470 

471 

472 

473 

474 
4  75 

476 

477 

478 
474 
480 


l=(»*(sgpt(324.-s»s)))J 

segmnt 

I 

for  (lts0;k<19;k  +  *)  { 
s=k; 

»=(»-( soptC 324. -s»s))); 
i =v-*» 

I=(»»(sgpt(324. -*»»))); 
seamnt (ifjflfj): 

1 

if(weP8==3)  1 

notp  =  (names (tesCf 1) ; 
hold  =  »nDtPJ 
clplblsatol(Shold)5  ■ 

I abel (■> y> t est >c 1 r1 bl ) ; 
color(l4); 

1 

else  f 

clr1bl3l4; 

lsbel(«#v«test>clplbl)> 

) 

break: 
def aul t : 

Drtntf("name  not  waHd  identifier*): 
soacef  2) : 

break: 

) 


1 inkfbl tal 101 *cownt : 
I inktol  (a)  (1)  3  «: 

I  f nkfb) la) 12}  »  yt 
aft: 

) 


eounttt: 
bo  I ♦ ♦ : 

) 

if(vers333)  < 
ent  rv®0; 

jniouetbl fentryl  (Ojslinktbl tO)  tOJf 
uniguetbl  (entryl  HJslinictbl  (01  11): 
uniouetbl  Ientryl.l2)=linktbl  10)  12): 
uniauetbl  lentryl  ISlslinktbl  (0)  13): 
tbl ct  r=l ; 

for(iso:i<a;itt)  < 

i*(uninoethl  (entryl  n)=slinktbl  litl)  11)  && 

uniouetbl  (entry)  I2)3slinktrl  (i*))  (2) )  ( 
/•  do  nothing  •/ 

) 

else  < 

ent  ry**! 

uniouetbl  (entryl  (OlsHnktfcl  (itl)  (O); 
uniouetbl (entry)  fl)3linktbl  (it!)  (1): 
un  i  ouet  b)  (entry)  (2)s|inktt'l(i*l)  (2): 
unmuet  b  I  (entry)  (3)slinktbl  (it))  (31: 
tblctr+e: 

) 

) 


} 

nbrol ot  3a: 
return: 
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asl  > 

«92 

483 

484  plaeesO  < 

485  int  h,i 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510  return; 

511  ) 

512 


>  i  tki 


1 


')! 


i ♦ ( St  pn==  '  1  '  ) 

orint ♦ ("»»*->0ATA  STRUCTURE  LINKTBL 
snace(2) • 
f  OP(  i  *0; »  <nhPol  ot  /  1  < 

♦or(6s0:h<4;h*+)  ( 

OPintTt'Xrt  — 1 i nktbl  in  thl ) ; 

1 

soaeel  1 ) ; 

1 

soace(2) S 

’  * ''*op*nt»("*»»-»t)ATA  structure  UN  I  QUE  T8L  ■* )  1 
saace(2) • 

Top  I  i  =  o;  j  <tMct  r;  j  I 

Top(k  =  0;k<4;ic<-«-)  I 

OPintfCX'l  — "funiouetbl  Ijl  Ikl  ); 

) 

spaced ) ; 


1 


) 


) 


soace(2] ; 


513 

514  label ) 


515 

516 

517 

518 

519 

520 

521 
522. 

523 

524 

525 

526 

527 

528 

529 

530 

531 
552 
533 
53« 

535 

536 
557 

538 

539 


/*  detepnines 

lot  t . i ; 
char  a; 


noie  label  placeeeot  In  relation  to  nooe 


•  / 


col orlelbl ); 
i»(.«>250)  I 

if(vy>250)  «=*!•; 
else  a=’2'; 

1 

else  T 

if{vv>2S'j)  »='5': 
-Ise  as'«'; 

( 

t  =  ( no  1  -»  1  mot  h  1 ; 


s-«  i » e  h  (  a  )  i 
eased ' : 

for ( i =0; i <2; i < 

enapac((»«*(20t(8»i))),¥ytl5.na"ieslfi)  )S 

**  tt; 

I 

break; 

cate‘2‘: 

t0P(isn;i<2;d*)  i 

ehapac((«»*t20t8»i ))f vy-2"»na"es t**i ); 
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541 

> 

542 

oreaw; 

543 

ease'3' : 

544 

for(is0;i<2;lt*)  1 

545 

t»«-(32”f8»>J)),yv»l5>naTesIzzJ  ); 

546 

12  +  *; 

547 

) 

548 

oreak; 

544 

easa'4' : 

550 

for  ({:0: i<2;it>)  < 

551 

char  ac  {(*«"•(  32-8»0)»vy“26»nameat»*)); 

552 

553 

) 

554 

break; 

555 

> 

556 

return; 

557 

> 

558 

554 

560 

selectO  i 

561 

ink  i » n; 

562 

char  v>vOuf  1201 » 

563 

564 

soace('2)  • 

565 

orintf("»*»->lMERe  4PE  3  VERSIONS  TO  THIS  GRAPHICS  PACKAGE 

\n 

•I; 

566 

orintf<*  PLEASE  SELECT  ONE  OF  THE  FOLLOWING  VERSIONS; 

Nn*); 

567 

aqain:soaee(2); 

568 

orintfl"  version  1  ...  PETRI-NET  PACKAGE  . 

TYPE 

1 

Nn"); 

564 

printti*  VERSION  2  ...  PACKET  REPRESENTATION  ... 

TYRE 

2 

Nn*)? 

570 

orintfl*  VERSION  3  ...  MUUTIROUTING  PACKAGE  .... 

type 

3 

Nn*); 

571 

n  s  o; 

572 

tMice:anac<>(2); 

573 

print f ("•**•>*)! 

574 

n  ♦  ♦  5 

575 

i  5  o; 

576 

white  ( ( vsoetchar ( ) )  Js  'Sn*)  I 

577 

vLuf  n 1  »  vJ 

578 

i 

574 

) 

580 

wbuflil  s  ‘NO’; 

581 

582 

i  S  o; 

583 

whi leivouf til  :=  'NO')  { 

584 

V  -  vbuf  til; 

545 

iftnssl)  ( 

586 

S-i tch (w )  t 

S87 

ease  ' 1 • : 

588 

vers  s  t; 

break ; 

500 

eaae  '2'; 

541 

vers  s  2; 

542 

break  S 

543 

case  '3': 

>44 

vers  =  3; 

545 

break ; 

546 

default: 

>47 

or i nt  f 

>48 

(”***.>ineorrect  version  try  eoainl"); 

>44 

goto  aoain; 

kOO 

break ; 
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601 

) 

602 

i  ♦  +  ; 

603 

> 

609 

else 

< 

605 

SNitch(v)  < 

606 

case  *0': 

607 

set  =  O; 

60S 

break; 

609 

case  'I*: 

610 

set  s  1; 

611 

break: 

612 

case  '2': 

613 

set  a  3; 

619 

break; 

615 

default: 

616 

or i nt  f 

617 

( <•  *  •  ocor  rec  t  oenisco  set  try 

again  1  * ) 

t 

618 

orint  f 

619 

C  set  selection  should  be  0 

rl  or  2») 

a 

9 

620 

M 

C 

621 

ooto  teice; 

622 

break; 

623 

1 

629 

i 

625 

) 

626 

> 

627 

<  f (nssl ) 

< 

62  S 

soace(21 / 

62<» 

erirtf  ("•*»->M0K  SELECT  THE  CEMSCO  SET 

YOU 

WISH 

\n*); 

630 

orintfC*  THE  PR00R4M  TO  8E  DISPLAYED 

TO 

\n»); 

631 

crintU"  C3  LAB  EITHER  SETO,  SETl 

OR 

SEi2 

\n»); 

632 

goto 

twice; 

633 

> 

639  return; 

635  > 

636 

637 

638  I'oarkC)  < 

639 

/*  narks 

initial  state  of  system  by  calling  aoprorriate  function 

690 

int  bjeolourtefO.ii.Y; 

691 

692 

t)ol  :  f  llel; 

693 

ilf  1  teol  or 

:3; 

699 

eolor(ofi teolor); 

695 

colours?: 

696 

c  t  ro ver f 1 owSO ; 

697 

uh i 1 •  ( f  c 

=  f bn  1 •>na"“Pt r ) )  JsO)  { 

698 

i  Y((6 

=  ( bo  1 ”>0 1 0 1 ) )  Jsrt;  ( 

699 

swi tch  f  vers )  f 

650 

case  I : 

651 

i versl O ; 

652 

break; 

653 

case  2: 

659 

i vers2(colour) ; 

655 

break; 

656 

case  3: 

657 

ivers3(colour}; 

658 

break; 

659 

» 

660 

1 
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661 

i t (df 1 tcol or  1=5)  color(3}; 

662 

bolt*; 

663 

1 

664 

color(14); 

66S 

orintatO, 350. ,480. ."TIME  FRAME  =  1*); 

666 

orereadl 1 ) ; 

667 

t  rnl i t e( 1 ) ; 

668 

di  sol a( ) ; 

669 

holdO; 

670 

t  rnl i te(2) ; 

671 

reset ( 1 ) ; 

672 

color! 13) ; 

673 

ovr f 1 ow ( ) : 

674 

orintoCO, 350. ,480., "TIME  FRAME  =  I*),' 

675 

return; 

676 

) 

677 

678 

679 

holdO  { 

680 

Int  holdinq; 

681 

682 

SDace(2) 7 

683 

orlntt(**«»->TMlS  IS  THE  INITIAL  STATE  OF  THE  NETWORK 

\n-)f 

684 

orintfl"  Type  <RETURfJ>  TO  CONTINUE  EXECUTION.. 

•  •  • 

\n-); 

685 

uhi te( (holdinosqetcnar{))!s*\n’ )  I 

686 

/•  oo  nothing  1 ooo  •/ 

687 

> 

688 

return; 

689 

) 

690 

691 

692 

IveralO  < 

693 

int  e,it,v,z; 

694 

char  cheek; 

695 

696 

e*(bol«>narieer); 

697 

»2(hol  *>)<cord) ; 

698 

v* (Co  1 •> veord) ; 

699 

*s(bol*>na'"er>tr); 

700 

i f ( (eheeksnanes  Iz* 1 1 ) 1  =  *  I •  KK  (checksnames  Iztl] ) !  = 

•  O'  ) 

( 

701 

orintq(0,»-3.0,511.-(y-3),"Xd",e); 

702 

1 

705 

else  < 

704 

iT(c''eek=na'reslztI)ss'I')  printo(0,»«14. 0,511 

.-(v?2),-Xd*,e) 

705 

else  printaf0,»-14.0,Sll.-(v-9),"Xrt*,e); 

70o 

) 

707 

return; 

708 

) 

709 

710 

711 

i  ver s2 (co 1  our )  < 

712 

in?  e,x,v,z; 

713 

Char  creek; 

714 

715 

e=(bnl»>'"arker); 

716 

<3  (col  •>»cor'J) ; 

717 

v  =  (bol  ->vcor'i) ; 

718 

z®(bol->naneotr); 

719 

i f ( (eheeksnames  Izt 1 1 ) !  = ' I '  (checksnsmes (z?ll ) is 

•O') 

< 

720 

oekt2(»,v,e,colour); 
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else! 

if(eheek  =  name9t2*ll==‘I’)  Drintq(0»ii-I4,0,511.”(v+2),"T;g" 
else  r>rintq(0*»“la. 0/511. -{v-9)."Xd"»e); 

> 

return J 
) 


i uer$3 ( C0 1  our )  < 

char  keeo>*k0tr: 

int  a>aa>0>bb>c/cc>clrl351/i<ie/n/staci(/t0tal>x/y: 


total=0; 
nsl  : 

»=(bel ->»eord) * 
v=  (bo  1  ->vcor(i ) ; 
a= (bo  1  -> 1 engf  h ) ; 
b=(col->naii<eotr); 

C  =  (hol->irarker)J 
total =total re; 

(f(c>0)  ( 

(Qr(is0;i<cJi+»)  ( 

kotr  =  Snames (bra*?) / 
keeo  s  *kDtr; 
elr(nlsatc((&keeo)» 
ntt; 

1 


kotr  =  Knames (b*al : 
keeo  *  •kotr; 
stacksatoi (&keeo); 

»f(nanes(b*(a-l)1 Js'O’)  ( 

it(na'i'es(c  +  (a-l)]=='2')  stacksstack  +  ^O; 
else  stack  s  stack  t  lOf 

> 

f or ( i so ; i <s t ac k - 1 ; i )  ( 

ool ; 

«as(boI->lenqfh); 
bos(tol->na"'eotr); 
cc= (rot ->~arker) ; 
tot  a  I  St ot  a  I »rc ; 

t  f  ( C.C  >  0 )  < 

♦  or(ksf);k<ee;k  +  '»)  ( 

xntr  s  Kna'oes  (bbtas*21  ; 
keep  s  *Kotr: 
c1r(n|=atoi(<keeo); 


i  f  ( na"es  (bt  1 1  1  s  '  I  *  ki  na'wes  ((>♦  1 1  1  *  •  0 ' )  { 
ockt  3 

(»,v,tota1 ,c1 r (II ,clr (?I ,c1r  131 ,el rial ,elr (5) ,cl r (bl  ,clr (71 , 
colour) ; 

) 


131 
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781  else  < 

782'  if(na'"es(h»n==*I*)  printq(0,«“l«.0,511.-(y»?),"Xd"»total) 

785  else  or  i  n  t  a  ( 0 ,  »  - 1 «  .  0 , 5 11 . -( y-P) ,  "Xcl’ ,  t  o  t  a  1)  ; 

70«  1 

785  return;  •' ■ 

786  ) 

787 

788 

789  prereadC f 1 aa)  < 


-790 

int  Bucket (21 »count*td»Fo»j»nbrtrns; 

791 

l<(flaq!=3)  < 

792 

if(f)aqs3l)  < 

795 

fd  =  open  (fbuf>  0); 

794 

if  (fd<=0)  ( 

795 

or i n t f ( " *  * *->er ror  occurred  in  opening 

fd 

file*); 

796 

) 

797 

fdfbuf =fd; 

798 

fQ  =  Open  (abuf>  0); 

799 

if  (fo<=0)  < 

800 

or i nt f ( " • * *-»er ror  occurred  in  opening 

♦9 

file"); 

SOI 

1 

802 

f  dqcu  f  =  f g; 

805 

» 

804 

if((countsread  (fdf*>uf»  bucket#  2)11*2)  ( 

805 

ori nt f ( "»»»->error  occurred  in  fd  bucket  read" 

); 

806 

1 

807 

i f { (count sread  (fdfbuf#  buf fer #( i even t s»2 ) 1 1 1 *( i even t s»2 ) ) 

808 

ori nt f ( " •••->error  occurred  in  buffer  read* 

809 

» 

810 

i f ( (count sreao  (fdoouf#  bucket#  2))!s2)  ( 

811 

or i nt f ( " »»»->error  occurred  in  fq  bucket  read" 

); 

812 

1 

915 

i f ( (countsread  (fdqbuf#  cnt r 1 # 2) 1 S *2)  ( 

814 

or i nt f ( " *  *  * ->er ror  occurred  in  cntrl  read") 

8 

815 

1 

816 

if(cntr1  lOlssO)  ( 

817 

soace ( 21# 

019 

or  i  nt  f  ( *  »  •  *->  t  he  last  networic  state  has  been  achieved" 

819 

koicturesspicturesfl# 

820 

$oace(2}# 

821 

1 

822 

else  < 

823 

i f (( count srea 1  (fdqbuf#  bucket#  21)1*2)  ( 

824 

or i n t f ( "* * •->er ror  occurred  in  tucket 

read") ; 

825 

1 

820 

nnrtrns  *  cntrl  (0J»?# 

827 

1  f  (  (count  *rnai  (f-fonuf#  f  i  ri  m#  nhrt  rns  )  )  !  * 

nbrtrns)  ( 

828 

or i nt f ( " • ♦•->error  occurred  in  firing 

read"); 

8?9 

1 

830 

) 

851 

) 

85? 

else  { 

835 

close(fdfbuf)» 

834 

c lose ( f duou  f ) # 

835 

) 

8  56 

return; 

857  ) 

858 

859 

840  staqeO  < 
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801 

802 

803 

800 

805 

806 

807 

808 
809 

850 

851 

852 

853 
850 

855 

856 

857 

858 

859 

860 
861 
8o2 
863 
860 

865 

866 

867 

868 
869 


if  (  KO  i  c  t  u<-es  :  =0  ix.  koi  ct  ures<Di  c  tures+ 1  )  i 
oreread ( 2) ; 

i f ( Kpi c t ures 1 =oi c t uresf 1 )  < 

trnlited): 
d)  so )  aO  i 
•  cause ( 1 ) # 

t  rn  1  i  t  e  ( 3  )  f 

> 


) 


return; 

) 


TtarkingO  <  x  »  i.  .  / 

/»  function  aisolays  successive  iterat>ons  of  the  network 

int  CO  I  our » draw# i .war k , n, « # y; 


bol  -  f i 1  el ; 
n  •  2  # 


/•  followina  toon  processes  ievent  *  data  entries  each  pass  */ 

for(koictures=0;koictures<Dictures;kDicturesft)  ( 

St  aoe ( ) ; 

i f ( koi c  t ures>0)  i 

r  e  8  e  t  ( ) »  ' 

co1or(13); 

ovrflow(); 

prinfafO, 350. ,080., -TIME  FPAUF.  s  Xa’.nif 


870 

871 

872 

873 
870 

875 

876 

877 

878 

879 
800 
881 
882 
883 

880 

885 

886 
807 
888 

889 

890 

891 

892 

893 
890 

895 

896 

897 

898 

899 

900 


n»  » » 

1 

i f 1 ap  o  koietures; 
draw  s  (bol”>Dlot); 
dfl tcd>ors3; 
color  (dfltcolor); 
col our=2; 
ctreverflowsO; 

for  (isO;  i  <  ieveots;  ift)  < 
i f  (draw  =*  1 )  ( 
ict  r  =  i  : 
switch  (vers)  ( 
case  1: 

verS I ( ) ; 
break; 
case  ?: 

vers^ (co I  cur ) ; 
nrea»; 
case  3: 

vers3(colnur)  t 
break ; 

) 

) 

i  =  ictr**; 

it(d*ltco1orJa3)  ec)or(3); 

bn  1 1 » ; 

praw  s  (bol  ”>  plot); 

) 

df I teolorslO; 
colorfdfitcolor); 
eoloursl 5; 


transqraon.e  Paqe  16  Pri  Feb  8  05:01:00  1980 

901  orintglO, 350. ,a80., "TIME  FhamE  s  Xd*,n); 

902  oause(2]f 

903  troHte(3)! 

904  bpl  =  filel: 

905  > 

906  Drereab(3)t 

907  return; 

908  V 

909 

910 

911  ovr  1 1  OH ( )  ( 

912 

913  int  i ix/yt 

914 

915  i=o; 

916  Hh i 1 e f over f I oHt b 1  I i J  10) 1 sO)  { 

917  *=overf 1 oHtbl  li)  tOl » 

918  y sove n f 1 owt 1 1  tl )  1 1 1  ; 

919  nlock((«-3)»l.,5ll.-{y+28)*l.,(xtl0)*l.,511.-(y+20)»l.); 

920  over^lowtbl  li)  (OlsO! 

921  overf lortbl  li)  (11=0; 

922  i ♦ ♦ ; 

923  > 

924  return; 

925  ) 

926 

927 

928  versK)  < 

929  int  e»*#y»*; 

930  char  eheett; 

931 

932  col  or ( 3 )  * 

933  e=buf  ter  lietr)  ; 

954  »= (bol ->»eorO) ; 

935  y= (bol ->yeord) ; 

936  ; s (bo  1 •>naf eot r  )  ; 

937  i  f  ( (ebec =03116*  t z ♦  1 )  ) '  =  *  I '  lt&  (cbecksname*  (z  +  l )  )  1  =  '  0  ’ )  T 

938  orintq(0,K-3.0.51l.-(y-3),"Xd",e)f 

939  ) 

940  else  < 

941  it(cbec*t  =  ns"'es[7*t)==*I')  printa(0r*“14.0»511.-(y»2)»*Xd"»e); 

942  else  printg(0,»-14.0,51 l.-(y-9),"Xd",e); 

943  ) 

944  return) 

945  ) 

006 

947 

948  vers2(co1 our)  ( 

“49  inf  i'arir.«»y,z; 

950  Cher  cheeV; 

951 

952  »  =  ( bo  I “hyeord) ; 

953  y  =  (bo  1 -yycord ) ; 

954  z= ( bo 1 ”»n sreot r  )  ; 

955  i>arlf  =bot  ter  f  TCt  r)  ; 

956  i  t  (  Ichee  k  =nnmes  I  7  ♦  1 1  )  1  =  '  I  '  ( ehec  k  =na"'e8  l7  ♦  1 1  )  1  =  '  0  '  )  ( 

957  DC k t 2 ( « » y » nar k » CO  I  our ) ; 

958  ) 

959  else  ( 

960  i t ( (cheeks names  t7»l))ss»i*)  nrintq(0rx>14,0, 511. ~(yt2)f"X'1"f nark) 
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961  else  pr i nt q ( 0 , 1 « . 0 » 5 1 1 .-( y-9) , "Xd* » mark ) ; 

962  1 


965  return} 

969  ) 

965 

966 

967  ver s 3 ( c8 I  our )  < 

968  int  a  >  aa  >  b  >  Ob  (irar  k ,  marks  >c )  r  [251  ,  j  >  k  >  n>  St  ac  k  >  t  ot  a )  r  x  >  y } 

969  Char  keep«*kotr: 

970 

971  totalsO; 

972  n=i; 

97J  *  =  (hDl •>»eord) } 

979  v= ( bo  I ->veord) • 

975  a=  f  bo  1  •*>  1  enqt  h  )  ; 

976  ps ( be  1 -xnameot r  )  ; 

977  mark=bu ♦ ^ «r ( I c t rl  ; 

978  t o t a  1 =t ot a  1 tmark} 

979  it(mark*0)  [ 

980  f or ( j =0 ; j <mark ;  i  )  1 

981  kotr  :  inames  (bta'*21  } 

982  xeeo  -  »kotr} 

965  c I r (nl =a t o i ( &keep) > 


989 

985 

986 

987 

988 
98® 
900 
091 
992 
995 
9q« 

995 

996 

997 

998 

999 
lOOU 
1001 
1002 
1003 

1009 

mos 
1006 
100  7 
100" 
1  009 

1010 
ton 
1012 
1015 
1019 

1015 

1016 
1017 

loie 

1019 

1020 


n*t; 

} 

> 

eecr  3  &names(b>al; 
keep  *  «kotr; 
stacksatoiCtkeee); 

i f (names (bt ( a* 1 ) 1 1 s * 0 • )  ( 

1 f (names lbt(a”l )1 »9*2* )  stacksstackf20; 
else  stack  s  stack  *  10} 

) 

tor(iso;i<stack*lJjt»)  ( 
bol ♦♦ } 
ictrtt; 

aa=(boI“>lenqtb)} 
bb-  ( bo  1  -  >na«'eot  r) } 

“arkssoutferlictrl  } 
totalstotaltmarks? 
if(marks>0)  ( 

for(vrii:k<-arks;kt  +  )  < 

«ntr  3  anames (bb ^38*21 : 
keep  3  •«rtr; 
cl r(nl satpl (5keep)  > 
n*»; 

1 

> 

} 

i t ( names  lb  ♦  1 1  ! 3  '  I  *  15  names  lb ♦ 1 J 1 s ' 0 ' )  I 
PCkt  5 

(xrvttotal »clrlll ,clrl21 »clr(3j ,cl rl  U  »cl rISl .clrfbl »clr(7) , 
col  Our) ; 

1 

else  < 

if(nameslhtll3sM')  orlnlo(0,»“19. 0,511. “(yt2)»*Xd"rtotal) 
else  OPintqlO, »-l 9.0, 511. ”(y”9),"Xd*, total): 
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loai  > 

1022  retupn* 

1023  > 

102a 

1025 

102b  oc^ 1 2 ( xai i s > vax i s > oo i nt >c I  ass )  < 

1027 

1028  SH i t ch (oo i nt )  < 

1020  case  0: 

1030  break; 

1031  cas*  1: 

1032  block((xaxiS'*3)*l.>511.~<vaxtS'<'3)*l./(xa<ia*3)*l.>511.~(yax<s*3)*l.); 

1033  break: 

103a  case  2: 

1035  b1ocK((>a«is~3)*la>511.*(vaxis^3)*l.«(xaxis+31*l.r511>‘*(vs«is~3)*l.); 

1036  Mock(Cxaxis‘*3)xl.>51t.'*(yaxis-7)*l.>(xaxtst3)*l.>511.~(y'axis~13)*l.); 

1037  rreax; 

1038  case  3: 

1 030'  blocK((isxis~3)*l.>511.‘*(yaKis'^3)*l.r(xaxis^3)*l.>511.'*(yaxis~3)*l.): 

lOaO  bloc«(lxa«is-5)*l.»511.“(vaxts”7)»l,,(xsxis»3)»l.»511.”(yaxis“l3)*l.); 

loal  b1dcx((xaxis*3)*l.<511.-(yaxisrl3)*l.>(xaxis+3)‘l.r511.‘*(yaxist7)*l.); 

1002  break; 

1003  case  0: 

lOOO  block((xsxiS'*3)*t.f51l.‘*(yaxis^3)*l.>(xaxis^3)*l.>511.''(yaxis*’3)*l.); 

1005  blocx((xaxis”3)*l.»5II.'*(yaxis“7)*l.,(xaxts+3)»l.»511.*(yaxis*l3)»l.)! 

1006  bloci(((xaxis‘*3)*l.<511.~(yaxis<'13)*l.i(xaxisy3)*l.>511.«(yaxis>7)tl.); 

1007  c1ock((xaxlsy7)<l.>511.>(yaxisr3)*l.>(xax<s*'13)*l.r511.-(yaxis-3)*l.); 

1008  break; 

1009  case  5: 

1050  blockt(xaxts“3)»l.»511.-fvaxls»3)»l.*(x8xls»3)*1.»5tl.“(yaxli-3)»l.); 

1051  oloc«((xaxis”3)*l.»511."(yaxiS”7)*l.,(xexis+3)»l.»51l.“Cyaxi$-13)»l,); 

1052  bloex((xaxis*3)»l.»511.*(yaxjs»13)*l.»Cxaxjs+3)»l.»511.“(yax<s»7)»l.); 

1053  bloexC(xaxis+7)*l,»511.»(yaxis*3)»l.»(xax<s»13)»l.»511.“(yaxis*3)»l,); 

1050  bIoc<((iaxis*l3)*l«>511«*(yaxisa3)*l.>(xaxis*7)*l.r511.-(vaxis~3)*l.); 

1055  break; 

1056  case  6: 

1057  bloekC(xaxis*3)*l.>5lt*'*(yaxisy3)*l.r(xaxfs^3}*I>>511.'(yaxls<*3)*l«}; 

1058  olock((xaxis*3)»l.f511.”(yaxis*7)»l,»Cxaxls*3)»l.»5n.-Cyaxis“13)»l.); 

1059  bloc<((xaxis'*3l*l.>51}.-(yaxis^l3)*l.y(xaxist3)''l.>51l.-(ysxisa7)*l.); 

1060  b1bck((xaiisy7)*l.«511.-(ysx<s»3}*l.>(xaxis^l3)*l.>511.~(yaxis*3)kl.}; 

1061  bloc<(Cxaxis'*15)*l.»511.”(vaxisa3)*l.»(xexis”7)*l.»511.“tyaxis”3)»l.); 

1062  block((xax1s-13)*l.«511.'(yaxistl3)xl.r(xsxis~7)*l.t511>-(yaxfsa7)kl.); 

1063  break: 

1060  case  7; 

1065  b)bc«((xa»'s-3)*I.»5ll.-(/axlsa5)*l.r(xaxis»3)*l.»5Il.”(yaxis“3)»l.); 

1066  bIoc»((»axis“3J*l.»51I.”(vaxis”7)*l,»(xaxis*3)»l.»5lI.*(yaxis“13)*l.); 

1067  h1oekfC«a’<'S”31*t..511.”(vaxis»13)»l,»(xaxis*3)*1..5II.“(yaxis*7)»l,); 

1068  b1oCk((<a'>is'*7)*l.>5ll.-(yaxisy3)*l.r(xaxis^l3)*l.r511>~(vsxis*3)*l.); 

1069  n1bCk(rxaxis'*M)k1<r5tl.'*(vaxisa3)*I.>(xaxis~7)*l.r51t.-(yaxis~3)*l.); 

1070  block((«a>is~I3)*l.,5ll.-(yaxisal3)*l.r(xsxis~7)*l.t511.~(yaxis^7)*l.); 

1071  ol6C»C(xaxis*7)»I.»5ll.“<yaxisyl5)«l.»(xaxistl3)»l.*511.”(yaxjs»7)*l,); 

1072  break; 

1  07  3  de f  au  I  r ; 

1070  oyrrfloMtbl let roverf lowl  tOJsxaxis: 

1075  overflowfpl  Ic t rever f 1  owl  (llsyaxis; 

1076  C t rover f 1 ow» ♦ ; 

1077  block((xaxls*3)*l.x51t.-(yaxls*3)*l.<(xsaisa3)*l.>511.''(yaxis~3)*l.); 

1078  blnck((xaxis~3)*l<>51l.-(yaxis'*7)*l.>(xaxis*3)*l«r51l.-(yaxis-13)*l.): 

1079  b1cckr(xax<s~3)*l«>5ll.'*(yaxlsal3)*l.((xaxisa3)*l.r511>-(vaxis*7}*l.); 

1080  block((xaxlaa7)*t.>5ll.*(yaxlst3)*1.>(xaxisyl3)kl.>511.*(yax«s~3)*la); 
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081  b>oe<((*a»ii“l3)»l.»5tl.”(va*is+5)*l.»(»a«is“7)*l.»Sll.“(vai<»»“3)»l.)J 

082  bloc*t((«»«is”13)*l.»511.~(va»it*13)‘l.»(*axiS”7)»l.»511.“(vai<i»  +  7)*l.) 

085  blocii((«a«is*7)*l,i511.-(ya«is+l3)»l.»(»a*ts+l3)*I.»511."(ya»i»*7)»l.) 

084  color(class); 

085  dt 1 t CO  1  or se I  ass; 

086  Dririta(0»«a«iS“3.0»51I.-(va»isr22)t3.0»“Xd"/Pojnt”7); 

087  breav; 

088  > 

089  return; 

090  ) 

091 

092 

093 

094  ockt 3 ( X a« i s > V a< i s > t ot a  I >c 1 >c2> c3>c4> c5 > cbfC 7 r c 1  ass )  < 

095 

096  SMI  ten  (total )  < 

097  ease  0: 

098  break; 

096  case  1: 

100  eolor(el): 

101  bloek((xa»is-3)»1..5ll,“(ya«is»3)»l./(Ms*i8»3)»l.»511.-(ya«ls-5)»l.); 

102  break; 

103  Case  2: 

104  color(cl); 

105  oIoc«f(xa»iS"3)»l.»511,-fva«is*3)*l.»(xa»is+3)»l,»511,“(ya«is“5)*l.); 

106  col or(c2) ; 

107  o1oek((x3xis-’3)*l.>511.-(yakls*7)*l.,(xa><sk3)*l.r511.-(y8xls-13)*l«); 

108  break; 

109  case  3: 

1 10  cot  or(c  I ) ; 

111  block((»a«is-3)»l.»511.»(ya»i8»3)»l.»{x8«is*5)»l.»511.-(ya»ls-3)»l.); 

1 12  col or(c2) ; 

113  block((»a»iS“3)*l.»5ll.«(yakls“7)*l.»(»a*lst3)*t.»511,-(ya«i8«l3)»l.); 

114  color(c3); 

115  block((«axis"3)*l.»511.“(ya»is*15)»l.»(*e*is»5)*l.»5ll.“(ya«iS+7)»l,); 

116  break; 

117  case  «: 

118  color(cl); 

119  block((xsxis-3)*l.>51l.-(yaxis»3)*l«r(xaxisk3)x|.>5Il.>(yax{s-3)*l.); 

120  col or(e2) ; 

121  block((xaxis”3J»l.«511.“(yaxis”7)»l.»(xaxisf3)*I,»511,-(yaxis-l3)»l.); 

122  Color(c3); 

123  oloek((xaxis”3)*l,.51l.-(vaxiskl3)*l.»(xaxis»3)»l,»5ll.”Cyaxi8t7)*l.); 

124  color(c4); 

125  t.  lccx(fxaxis*7)»l,»511.»(v8xis*3)*l.»txaxis*13)»l.rSll.-(yaxis“3)*l.); 

126  break; 

127  casM  5: 

128  crlnrfcl); 

129  oloe<((xaxis'3)xl.>5ll.-(y3xisk3)x1.,(xsx4st3)*l.>5Il.-(yaxis-3)*l.); 

130  cnlortcP); 

15I  ri1oc«((xaxis”3)*1.»511.”(yaxis”7)»l.»(xaxfst3)*l.f5ll.“(yaxis“l3)*l.); 

132  co1nr(e3); 

133  r'lock((xaxis"3)<l.»5ll.”(vaxis'*131*l.»(xexist3)»l.f5ll,-(vaxist7)»l.); 

I  54  col or(c4) ; 

I  55  Mnck((xaxis»7)*l,»511,«(yaxlst5)*l.»txaxls*l3)*l.f5ll.“(yaxi8‘*3)*l«); 

156  colorCc5); 

137  bIoek((xaxi8-l3)xl.»5ll.-(vaxls'»3)»l..(xaxl8-7)*l.,511.-(yaxl8-3)*l.); 

138  brask; 

139  ease  6: 

140  eolor(cl); 
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191  bloci«((i<axis-i)»l.  .»511.“(ya«is  +  S)*l.»(xaxts  +  3)*l.»51l,”(vaiiiS”3)»l.)» 

192  color(c2): 

193  nloci<((xaxia-3)»l.f511.“(vaxia”7)*l.>(xaxis+3)»l.»511.”(yaxis”13)»l«)» 

199  colop(c3); 

195  Mocx((xaxts-3)*l.»511.«(yaxis+13)*l.»(xax»s+3)*l.»5ll.-fvaxis»7)»l.); 

196  colop(c9); 

197  block((xaxis>7)*l.>511.'’(yaxis«3)*l.«(xaxlstl3)*l.>511.-(yaxis-3)*l.}; 

198  CO  I 3P  f  e5) J 

199  b)oci<((<axis‘*13)*i.>511.**(yaxis*3)*l.>(xaxis~7)*l./5ll.*(yaxls~3)*l.)l 

150  colop(c6); 

151  bloe9((xaxis-l3)*l.»511.“fyaxistt3)*l,.txaxis“7)»l.»5ll.-(yaxis+7)»l,) 

152  break: 

153  Case  7: 

159  eolor(cl)f 

155  bloek((xaxis“3)»t..Sll.“(y8xis»3)»l.»(xaxis«-3)*l.*511.“(yaxis“3)*l.)f 

156  co1or(c2): 

157  block((xaxis-3)»l.»511.-(y8xiS“7)«l.»(xaxis»3)»l.»51!.“(yaxis“13J*l.)J 

158  eolor(c3); 

159  block((xaxis-3)*l.>511.-(yaxistl3)*l.>(xaxist3)*l.>511.~(yaxls47)*l.)f 

160  colop(c9]; 

161  nlock((xaxist7)*I.>51t.~(yaxis^3}xt.>(iaxi$*l3}*l.t5lI.~(yaxif3}*l.): 

162  colbr(c5); 

163  pJocx((xaxis-13)*1..511.“(yaxis*3)*l.»(xaxis”7)«l,,511.”(y8xis”3)«l.)» 

169  CO  I  or (c6 ) : 

165  nlock(,(xaxlS“13)»l.»511.-(yaxis*13)«l.»(x8xis“7)»1..511.“(ysxls»7)*l.) 

166  color(e7); 

167  b1ock((xaxis>7)*l.>511.>(yaxi$*13)*l.>(xaxistl3)*l.>511.'*(yaxisr7)*l.) 

168  break; 

1 69  def aul t : 

170  overfinwtbl  (e f rover f I  owl  (OJsxaxis; 

171  overftowtbl  le t rover f 1  owl  tllsyaxlsl 

172  et rover f 1 ow • 

173  co) or (c I ) ; 

179  blockf<xaxts»3)»l.»511.-(vaxis»3)*l.ffxaxls»3)»l.»5Il,-(yaxls“3)*l.); 

175  eo>or(c2); 

176  b1ock(lxaxis”i)*l.»511.”(vaxis”7)»l.,(xaxist3)*l»»511.”(yaxis“13)*l.); 

177  co' or (c3) ; 

178  hloek((xaxis”3)*l.»511.-(vaxistl5)»l.»(xaxis'»3)*l.»Sll.“(vaxis+7)»l.)l 

179  co) or (c  9) ; 

180  block((xaxis*7)»l.,511.-(vaxis*3)»l.»(xaxls+13)*l.»5ll.-(yaxis“3)*l.); 

181  co ' or (c5 ) ; 

182  block((xaxis”13)«l.»5ll.-(yaxi8t3)»I.f(xaxls*7)»l,»5ll.“(yaxls”3)»l.); 

183  color(c6); 

189  block((xaxis-13)*l.r5tl.~(vaxistl3)xl.>(xaxis~7)*l.>511.~(yax<st7)*l.) 

185  co''5r(e7); 

186  ijlock((xaxist7)*l.,51l.“(y8xistI3)»l.»(xaxis»13)‘l.f511.-(yaxis+7)»l.) 

)97  cn  )  or  ( c'l  ^ss  )  ; 

1*8  'If  I  r  en)  or:c  1  ass ; 

189  Drintql'J»xaxis”3«0,511»”(y8xi8*2?)f3.0,"Sd"»total”7); 

190  break: 

191  1 

192  return; 

193  1 
199 
195 

l9o  reset  ( )  < 

IV7  /•  reset  (unction  (or  successive  network  iterations  •/ 

198  int  i >mark « X , y « I  ; 

199 

200  idversssl  !i  vers**?)  1 
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1201 

1202 

1203 

1204 

1205 
120b 

1207 

1208 

1209 

1210 
1211 
1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 
1240 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 


f OP ( i *0 ; » <nbpp1 ot J i ♦♦ )  ( 

eolopl 14); 
xslioirtbltiMl); 
v  =  1 i nk  th  1  ( i I  121  > 

7  =  linkttl  til  131; 
if(7==01  1 

b1ock((»-3)*l.»511.-(y-7)«l.,(»+3)*l.»511.-(v-131*l.); 
bl  oe  lc((»-l  3)  •!., 511. -(y+ 131*1. ,(ic*13)»l., 511. -(v-3 1*1.1; 
1 

else  1 

h1ock((»-161»l.,511.-(y-2)*l.,**l .,51 l.-(y-10)*l.); 
b1ock((i<-16)*l.,511.-(y*10)*l.,«*l.,511.-(y'f2)*l.); 

1 

1 


else  < 


f op( « =0; i <f bl ct p-l ; 1 ♦♦)  1 
col op( 1 4) ; 
x^uniouetbl  til  til t 
ysuoi'juetbl  (i)  12); 

7=uninuetbl  til  13) t 
il(7S=01  i 

block! (*-31*1 .,511 .-(y-7)*t ., t»*3)*l.,51 1 .-(y-1 31*1 .i; 
block((*-131*l.,5ll.-(y*13)*l.,(»*131*l.,51 1 . - ( y-3) • 1 . 1 ; 
} 

else  1 

b1ock((»-16)*l.,51 1 .-(y-2)*l . ,»*1 .,51 1 .-(y-10)*l .); 
bl oc k(( »-16)*l. , 51 1. -(y* 101*1. ,**!., 51 l.-(y +2 1*1,1; 

1 

) 


ret  urn) 
1 


t  rnl i te ( t  f I ag)  1 

jnt  fia9,h,i,ino,j,k,l,'r>,n,on,outP,etPfr,s,x,i<x,y,yy; 

f OP ( bso ; h<cnt P 1  10) ; h»»)  1 
bo2s ! i I e2; 

fop(j=0;j<(fipinath)-));jt*)  < 
bo2*t; 

) 

i t ( On= (oo2”> t PPO 1 ot 1 ss) 1  1 
«=(bp2->**cop«ll; 
y  =  (0o?-»yvC0P<il: 

i!(tflaa*=t  !I  ttlaqss?)  cblopdli; 
e I se  CO  I  OP ( 1 51 ; 
secmntty.y-Pfl.^.vt?©); 

|s(bo?->tpnlpr»); 
k s ( ho2*>t  P net  p) ; 
fop(ia0;i<l;i**)  1 

e^apae((«-^^(P•i>),y♦24,.“3P'es!l•♦)l)r 

«♦*; 

) 

ifttflanssl  t*laa==3l  < 
i  f  1 1  f  I  ansa  1 1  coIopDII) 
else  colorll4); 
flaqsO; 
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1261  IPS  ( bo2-»  i  nt  rn)  ; 

I 2b2  rs i o t h I  (kI » 

126J  f or ( i sO ; i <p; i ♦ ♦ )  1 

1269  > no  =  > ot bl  lut 1 J ; 

1265  f or ( j sO; i <nbrol ot ; j ♦♦ )  < 

1266  if  (inossHoktbMj]  10]  )  < 

1267  .  »»s| inktbl  I  j J  111  ; 

1268  vy  =  1 i nk t b 1  t i )  (2)  : 

1269  if(flaassO)  < 

1270  if(xk<sx)  flagst; 

1271  else  flao32; 

1272  sflaglbjsfiag; 

1273  > 

1279  iflflaossl)  i n t rnsl ( xx > yy > x > y ) ; 

1275  else  intrns2(xxryy>x>y)i 

1276  j-nbrplot; 


it(tflaq==2  !!  tflagssS)  ( 
if(tflaa==2)  color(ll)> 
else  color ( 19) ; 
ns(oo2->outtrn); 
ssiotbl  (o) ; 
for(  i  sO;  i  <s>  i  'f'k)  ( 
outosiotol  Infl ) ; 
f  or  f  i  **'7  i  ♦obro)  of  J  i  1 

i ♦ (out OSS H nk t b 1  I  j )  1 0) )  ( 
xxslinktblljl  Ill? 
yys  M  nkt  b I  I  j I  (2) » 

if(sflag(h)ssl)  9utrnsl(xx>yv>xry)) 
else  out rns2( X I . vy *  X » y ) ; 
jsnbrol ot ; 


re t  u  rn  5 

> 


t  rns  H  nk ( )  ( 

inr  flan>i.inOfj>k,l,ip,n,on>outPiotrrrtSrx.xx>Vryyr 


no2=f i I ePs 

wn  i  I  e  f  I't  r*  (nri2”>t  root  r )  I  sO  )  ( 
i  f  ( ons  (ho2”»t  mol  ot  )  ss  1  )  < 

i=(bo2”»»xcorn); 
y s 1 1  o2”»  y vcorrt ) t 
color( 15); 

seopint  (x»v-20,»,yt20)J 
I s(oo2->t  rnlen) J 
ks(bo2-»trnotr)» 
for(isO;i<|f !♦♦)  1 
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1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 
1539 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 
1555 

1356 

1357 

1358 
1559 
1360 
13ol 
1362 
13o3 
1  364 
1  »o5 
1  366 
1367 
I  368 
1  369 
1370 
1571 

1372 

1373 
1  374 

1375 

1376 
1577 

1378 

1379 

1380 


eharac((it*8»(8«i))  >v«24,  names  {k*l  I  ) » 

; 


) 


colop( 14) ; 

♦  1  aa^O : 

m= ( bn2-> i ot  rn ) ; 
r=iotbl f"! t 
for(>s0»i<pji»*)  < 
inosiotbl  Im»l) t 
♦op ( i =0; j <nbrol ot » j ♦♦ )  { 

i ♦ ( i noss 1 i nktbl  ( j )  (0) )  { 

«ii  =  1tnlctb1tillll> 
vv=l inktbl tj)  121 i 
if(f1og:s0)  1  ^ 

tf(xx<sx)  flag^i: 
else  ♦lsa=2; 

1 

if(fl80==l)  i nt pns 1 (x» » yy r »» y ) » 
else  i nt pns2 ( «* » yy » » » y ) » 
j  snbPol ot : 


> 


1 

m**t 


) 


ns(hp2->outtpn); 
ssiotbl  In)  : 
f OP ( t=0;t<s;i«t)  ( 
outoslotbl  In»H ; 

♦op ( j *0 ; i <nbpolot » i ♦♦)  < 

<  ♦  (outoss)  intttbl  I  j  MO)  ) 
yysHnktbl  tj)  til  ; 
yys) inktbl  t  j )  12) ) 
if(Mao=*l)  out  pns  1  ( «» » yy »  * » y ) ) 
else  out pns2( * » » yy » «»y ) » 
jsnbPolot J 


I 


) 


) 

ntt; 


» 


) 


bw2*+ ; 
) 

ret  upn ; 

> 


I n t pns I ( « » , yy , « , y )  t 
1 nt  i nput ; 

i  1 1  »x<(«-12) )  I 
i f ( yy <sv  )  < 

(f(yyssy)  inout-0) 
else  1 nout  *  1  » 

) 

else  Incuts?; 

> 

else  t 

I f (yy<Sy)  InoutSO; 
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1381 

else  inout=3; 

13B2 

) 

1383 

1384 

Switch  ( i nout )  ( 

1385 

case  0: 

1386 

seonint  (x»il6»vv»»“l»y); 

1387 

rqhtarrow(K-l»y); 

1388 

break; 

1309 

case  1: 

1390 

sedi>nt(»*kl2»yvkt2»x“I2»y«8); 

1391 

seqnnt ( x-l 2. v-8, »-l , v-8 ) ; 

1392 

rahtarrow(*“l»y*8); 

1393 

ereakf 

1394 

case  2: 

1395 

seqwnt(KX*12*vv“t2«»“12fVk8); 

1396 

segnnt (»-l2.v*8,*-l,y»8); 

1397 

rohtarrow(»”l»vd8)> 

1398 

break: 

1399 

case  3: 

1400 

seaunt  (»K”12»vvl2»*“t2»v»36); 

1401 

segmnt (»“12»vdl6»»“l»ykl6); 

1402 

1  ftse<ri  («*12»v  +  26); 

1403 

rqhtarrn«{»“t*y*t6); 

1404 

. 

nreak; 

1405 

ease  4: 

1406 

seqnnt (»»«l2»vvtl2»«»12»y-36); 

1407 

seonnt (»”12*V-I6»«“l»y”16); 

1408 

1ftsemi{»“12»y*26); 

1409 

rghtarrow(«*J»y“16); 

1410 

break; 

1411 

> 

1412  return; 

1413  > 

1414 

1415 

1416  rghtarro 

w(«.v)  < 

1417 

1418 

Seg'"nt(»”4»/-4,*,v); 

1419 

segnnt (»*4,vd4,»,y); 

1420  return; 

1421  > 

1422 

1423 

1424  Iftse-rK 

»»v)  < 

1'4P5 

14^0 
1427 
142>^ 
ie2<» 
14  30 

1431 

1432 

1433 

1434 

1435 
I  43e 
1437 
I43« 

1439 

1440 


142 


> "t  i » i » 4 ; 
dout)  I  e  sTrt  ( )  ; 

f or(«sO;«<l I ;ktt)  < 

is<v-(^3rt(l'>0.-k»«))); 
is(v*(s'irt(l()0.“k«ii))); 
dot  (•-U/2.  ),51 1  .-i  )! 

iot(«-(k/2.),5n.-j)J 

ifU>H)  1 

•lot  (»-(k/?.  1  f'^l  1  .-i-2); 
dot  f»-(k/2.)»51 l.-i-l )• 
dot ( «-( n/2. >  »S1 I .-i ♦ I ) ; 
dOt(i*(k/2*)#Sl l**lt2)» 
dot (»”(k/2.)»Sl 1 .-j-2); 

do»(»-(k/2.).sii.-j-n; 

dOt(»"(k/2.)»^ll«“jkl)» 
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1441 

1442 

1443 

1444 

1445 

1446 
1  447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 
1495 

1494 

1495 

1496 

1497 

1498 

1499 

1500 


dot (»-(k/2.),511.-jf2); 


return » 

> 


out rns 1 ( x« > vv > X > y  )  < 
int  outoutl 

if(xx>(xfl2))  { 
i f ( V v<*v )  1 

it(yyS=y)  OUtOUt^Ol 

also  outout=i; 

> 

else  outout=27 

> 

else  < 

lt(yv<=v)  output-4; 
else  outout=3; 

} 

switch  (output)  1 
case  0: 

se4'*nt(xtl,y,i(x-20ryy); 
rah tar row ( xx-20>yy); 

Preak: 
case  1: 

segmnt (xt!2»y-8»xx*28»yyr8); 
seomnt (xx“28»yyt8»xx*20»yyt8); 
rQhtarrow(xx«20»yy*8); 
seomnt (xtl»y-e»xtl2»y*8); 
break; 
case  2t 

se3'«nt(xtl2»y*8»xx»28,yy*8); 
sejTnt  (xx-?8,yy-8,i(«-20ryy“8); 
rqhtarrow(xx-20»yy“8); 
sear'nt(x'tl,yt8rKtl2ryt8}; 
break; 
case  3: 

Seii'nt(x*1».y+16»x*12»vtl6); 
sea'^nt(xtl2»y*5b»xx  +  28»yy9); 
Se4'xrit(xx  +  28,yy-8,x»«20,yy-e); 
I ftarrowf»xt20»yy-8); 

rohtsemi (xtl2»yt?6); 
break ; 
ca-se  4: 

seaent (xtl»y-16»x+12fV”16); 
Se?rnt(wtl2,y-56»xxt23,yyf8); 
se.Tnn t  (xxt?8,vyt8»xxt20jyytfl); 
I tlarrow(xx«?Ufyyt8); 

rohtsemi (xtl2»v”26); 
break ; 


) 


return; 

) 


rght  semi ( x  r  y  )  < 
int  i>j>k; 


t  ransoraph.c 


Paoe  26 


Pr»  Fab  8  05;0j;00  1980 


;  '  ’I 


1501 

Couple  sqrtO: 

1502 

1503 

for 

(kso;k<l l:k**)  1 

1509 

i  S  (y-(sart<100.-k»k))): 

1505 

j  *  ( y ♦ ( sort ( 1 00 .-k*k ) ) ) : 

1506 

clot  («  +  <it/2.)»511.“i): 

1507 

oo  t  (  kt(k/2«)»511**j):- 

1508 

if(k>8)  ( 

1509 

Cot (xt(k/2*)»51 1 ••i*2) : 

1510 

Cot(x+{k/2.),511.-i-l): 

1511 

dot(*t(k/2.),511.-itn: 

1512 

dot (M+(k/2.)»511»”it2): 

1513 

dot (»t(k/2«)»51 1 •“] “2) : 

1519 

dot{*t(k/2.)*511.“j”l): 

1515 

dot(«t(k/2.)»511.“jtl): 

1516 

00t(xt(k/2»)»511.”jt2): 

1517 

) 

1518 

) 

1519  return: 

1520  ) 

1521 

1522 

1523  1 f t ar roK ( * • V )  < 

1529 

1525  ae^Kn t ( » *9 , v*9 » M » V )  * 

1526  aegtin t  (  » +  9 ,  y  tu.  « ,  V )  : 

1527  return: 

1528  } 

1529 

1530 

1531  1ntrn*2(M«*yv»»»v)  ( 

1532  int  input: 

1533 

1539  if(». >(«♦!?))  < 

1535  iMvv<sv)  i 

1536  iffyySSv)  inout-0: 

1537  el*ei  "out  s 1 : 

1558  1 

1539  else  innuts2: 

1590  > 

1591  else  < 

1592  it(vy<sy)  input*®: 

1593  else  inout*3: 

1599  } 

1595 

1596  SMitcn  (input)  1 

1597  ease  0; 

1598  sef'nt  (  ««”  1  6*  y y »  «  ♦  1 » y ) : 

1599  1 1 1 arrow (»♦ 1 » v) : 

1550  break: 

1551  ease  I: 

1 552  seount (««"l2»vytl2»*+l2»y“P): 

1553  seo'rnt  (  »♦  I  2»  y”9»  «  ♦  1  *  y  *8 ) : 

1559  1 ♦ t ar row( «♦ 1 » y”8) : 

1555  break: 

1556  ease  2: 

1557  seTrnt (»«-l2»yy-12»  «tl2.y*8): 

1558  seownt ( «*I2* y *8* »♦ 1 » y^8) 1 

1559  I (tarrow(Btl»v*8): 

1560  break: 
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1561 

15o2 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 
1573 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 
1601 
1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 
1611 
1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 


Casa  3: 

sen-iint(*«*12»yv”12»»  +  12»v»36); 
sea<nnt(x4^l2>ytl6rxFl/yt|6); 
rafitsemi  C»tl2»yt26); 

1 ♦tarrow(»»l*y*16); 

break  t 

case  4:  \ 

senior*  t  («*»t2»yy*t2»»  +  12»y”36)» 
seanot (K*l2»y-16/xfl ry-16)> 
rabtseni (M*l2»y“26); 

1  ♦  t arrow ( X ♦ I » y “1 6  )  ? 
oreakl 

) 

return; 

) 


ou t rns? ( X X » yy *  X » y  )  < 
int  output; 

i »(xx<(x-12))  1 

i f Cyy<=y )  < 

if(yy==y)  outoutsO; 
else  outout=i; 

) 

else  outout-2; 

1 

else  < 

it(yy<Sy)  OUtPUt^Ot 

el se  ootPuts3;  ’ 


Switch  (output)  ( 
case  0: 

seownt (x«l»y»xxt20»yy); 

1 ♦tarrow(xxy20»vy); 
break; 

case  1: 

srq'xnt(x»l2.y-P,xx»28»yyt8); 
sea'"'>t(xx*28»yy»8»xxt20ryyt8); 
1 ttarrow(xx»20ryyt8); 
seb^nt(x-l»y”8,x”12»y-8); 
break; 
case  2: 

seairnt  (x-12»y  +  5fxxt28»yy”8); 
se3irntfxxt2P»yv-8rXX*20ryy»8); 
1 f  r  arrow (xx«20xyy*8); 
senwnt (x-l»v»6»x”12ryt8); 
break; 
case  3: 

seo'knt  (x-l»v*l6»x'»12»y*lb)r 
seOTnt(x-l2»y«36fXx-28»yy-B); 
seaunt (xx-?8»yy-8»xx“20»yy“8); 
rahtarrow(xx-20,yy-8); 
lttseiit(x”12»vt26)l 
break; 
case  4: 

seq»nt(x»l»yl6.x-12»y-16); 
tegmnt (x”12fV-36»xx-28ryyt8); 
sepent ( xx»28»yy ♦8»  x*”20ryy tS) 1 
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1621  rqh t arrow (» »“20* yv+8) ; 

1622  1 f t sem i ( »- 1 2» y“26) ; 

1623  break; 

1629  > 

1625  return# 

1626  ) 

1627 

1628 

1629  co’tabO  < 

1630  i nt  i ; 

1631 

1632  i  =  lM16; 


1633 

1  Ode o' (i»  +  »15«15#15); 

/* 

color 

0 

•  / 

1634 

'odcol ( i ♦♦fO# lOfO); 

/• 

col  or 

1 

*/ 

1635 

lodcol (i ♦+. 15,0,0); 

/« 

color 

2 

•  / 

1636 

Iodeo'(i+*,t5,15,0); 

/» 

color 

3 

*/ 

1637 

'oocol ( i ** • 12,0, 12); 

/* 

color 

4 

*/ 

1638 

lodcol ((♦♦,5,5,12); 

/» 

color 

5 

•  / 

1639 

lodcol ((♦♦,6,6,5); 

/• 

color 

6 

*/ 

1640 

1 odcol ((♦♦,5,3,3); 

/» 

color 

7 

*/ 

1641 

lodcol ((  ♦♦,10,0,10); 

/» 

col  or 

8 

*/ 

1642 

lodcol ( ( ♦♦, 12,5,5); 

/» 

color 

9 

*/ 

1643 

1 odcc !((♦♦, 5, 5,3); 

/* 

col  or 

10 

•  / 

1644 

lodcol ((♦♦,12,12,0); 

/♦ 

col  or 

1  1 

•  / 

1645 

1 odcol ((♦♦,8,7,3); 

/• 

col  or 

12 

»/ 

1646 

lodcol ( (♦♦,5,4,2); 

/* 

color 

13 

»/ 

1647 

lodcol ((♦♦,0,0,6); 

/• 

col  or 

14 

*/ 

1648 

1 odcol ((♦♦,6,0,0); 

/• 

color 

15 

•  / 

16«9  return; 

1650  1 

1651 

1652 


1 
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I  « 

a 

3  . . . 

5 

6  /**«*»***  PPOGRAM  LINKGftiPH.C  «»*»»•»•/ 

7  /.**..*.* 

8  /********  STEPHFIm  C.  JENNINGS  JC91  USMC  »•«»*»••/ 

9  /*.****«*  90PE9T  J.  HAPTEL  CS91  USA  *»»»»»,*/ 

10  /**.•*•**  *«*.***•/ 

11  /♦***..«.  WRITTEN  fall  quarter  1979  ••»»»»»»/ 

12  /••**.»•»  NAVAL  POSTGRADUATE  SCHOOL  »»•«*«*»/ 

13  /•»*»«»«*  MONTEREY,  CALIFORNIA  **•••«**/ 

1.4  /•**•**•*  **•**•*•/ 

15  /*♦*»***••••*•••••«*«••«•*•••♦*••»♦*•**««*»«•*•»••*«*♦*»••/ 

lb  /»*•••••♦•»***••»•••*••••••**•»•••««•••*»«•*•**•***»»«***»/ 


17 

18 

19  /*»*****•**«***<...»**.**».**••..*•*•**«/ 

20  /•»»«  EXTERNAL  DECLARATIONS  *«•»/ 

21 
22 

23 

24  /»•»*  literals  »♦«•/ 

25 

26  *deTlne  head#P  4  /•  contairrs  control  »  as  to  bvtes  read  in  ...  »/ 

27  Saefine  sto  10  /•  the  stanoarO  incut  read  buTTer  lenoth  ....  */ 

28  •define  fireo  100  /•  th#  man  •  of  t rans i t i ons  ■  f i rea  in  1  frame  •/ 

29  Adeffne  frames  150  /*  inoicates  the  total  »  of  network  states  ..  •/ 

30  Sdefine  bounds  360  /*  bounds  on  max  *  of  nodes  or  transitions  ..  */ 


31  •define  uocer  2000  /•  defines  iotbl  ma*  length  .................  */ 

32  »define  limit  3600  /»  defines  names  ma*  length  . .  •/ 

35 

30 

35  /•••*  structures  ••*«/ 

36 


37  struct  <  /*  data  structure  information  on  net  nodes  ..  »/ 


38 

39  int  Ctrl],  /»  store  control  char  not  used  in  program  ...  •/ 

40  int  nameotr;  /•  index  to  names  array  .....................  •/ 

01  int  marker;  /•  initial  marker  state  of  the  network  ......  */ 

42  int  xcord;  /•  x  cordinate  of  place  .....................  */ 

03  int  ycord,  /»  v  cordinate  of  place  .....................  */ 

44  int  olot;  /•  whether  or  not  Place  is  to  be  dotted  ....  */ 

05  int  length;  /•  lenoth  of  name  associated  with  dace  .....  »/ 

4o 

47  Ifilel  IboundsI,  *nd;  /•  pointer  into  data  structure  ..............  •/ 

48 

49 


50  struct  i  /*  lata  structure  information  on  transitions.  */ 

51 

52  int  ctrl2;  /*  store  control  char  not  used  in  erooram  ...  */ 


53  int  trnotr;  /•  inoe*  to  names  array  .....................  */ 

54  int  intrn;  /»  oointer  to  inputs  for  a  transition  .......  ♦/ 

55  int  outtrn;  /•  pointer  to  outputs  for  a  transition  ......  */ 

56  int  xxeord;  /•  X  coroinate  of  transition  ................  */ 

57  int  yycord;  /•  y  cordinate  of  transition  ................  •/ 


58  int  trndotJ  /•  whether  or  not  transition  is  to  be  olotted  •/ 

59  int  trnlen;  /»  length  of  name  associateo  with  transition  */ 

60 
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bl  >fi1e2  (bounds)*  *Cid3! 
62 
63 

66  /•***  INTEGERS  »*»»/ 


65 

o6 

i  nt 

at>a2.a3.s6; 

67 

i  nt 

nutter (bounds) ; 

60 

i  nt 

ent  rl  ( 1 ) ; 

69 

i  nt 

ctrovertlowJ 

70 

i  nt 

dt  1  tcolor; 

71 

int 

tdtbuf ; 

72 

<  nt 

tdgbut  7 

73 

int 

tiring  (bounds)  < 

76 

i  nt 

ietr; 

75 

i  nt 

i event  s « 

76 

int 

i t 1 aq) 

77 

int 

i otol  luooerl ; 

70 

int 

k  f  h  t  rame • 

79 

int 

linktbl  Iboundsl  (61  ! 

00 

int 

nbrplotJ 

01 

i  nt 

nbvtes  (21 > 

02 

i  nt 

overflowtbl (tired! (21 

03 

int 

set ; 

86 

int 

t  abcount : 

05 

int 

tbl ct  r; 

06 

int 

uniquetbl  (tired)  (6) > 

07 

int 

vers; 

00 

int 

X  instore ( t i red) » 

09 

i  nt 

xout  St  ore  1 1 i red) ; 

90 

int 

y i ns t  ore ( t i red) « 

91 

int 

vouf store  1 1 i red) f 

92 

93 

96  /***•  characters  *«•*/ 

95 

96  ebar  eoof  Istd) * 

97  Chan  dbuMstdlJ 
90  COST  >buf  tstdJ ! 

99  efian  abut  (stdJ  5 

100  cHar  na'xes  ( )  i  ni  1 1  7 

101  ebar  senn; 

102  char  tbut (stdl * 

103  cnar  vbufCstdl* 

1  OR  char  t  i  mi  nq) 

105 

106 


107  . . . . 

100  /«•••  PiiMcriuN 

'•'AIN 

110 

1 1 1 

112  mainO  < 

113 

116 

extern  runout ( ) 

;  /• 

1  15 

i  n  i  t  (  I  ; 

/• 

116 

determine! ) * 

/  • 

117 

di  sol av( ) ; 

/» 

110 

select ( ); 

/• 

119 

preo8re(2) ; 

/• 

120 

drawnodeC ) l 

/• 

/*  oointer  into  data  structure  . .  */ 


/•  global  storage  for  each  data  structure  ... 

/*  butter  into  which  each  trame  is  read  .....  •/ 

variable  containinq  a  transitions  tired  ..  •/ 
/•  «eec  track  ot  nodes  overflow  status  ......  •/ 

/»  a  detault  color  tor  indicatinq  overtlows  .  •/ 
/*  tile  descriotor  ter  Rut(“”Y  tiles  .........  •/ 

/•  tile  oescriotor  tor  RUN--Z  tiles  . »/ 

/•  storaae  into  which  tirej  uiaces  are  read  .  »/ 

/*  counter  oassed  to  a  tunction  . .  */ 

/*  number  ot  non-  i  disblavable  nodes  .......  */ 

counter  tor  the  interruot  mechanism  ......  •/ 

/*  torms  i nput -t o-out out  relationshio  .......  */ 


counter  tor  the  iterations  ot  the  network.  »/ 
/•  version  1  i  2  screen  nodes  locations  .....  */ 
>'*  counter  for  number  ct  disolayed  nodes  ....  »/ 
Store  count  fields  tor  data  structures  ...  */ 
’  data  structure  to  store  overflow  locations  •/ 


/•  user  selected  conrac  oraohics  screen  .....  */ 

counter  tor  link  revert  ..................  */ 

/»  a  counter  tor  version  3. .reset  conditions.  */ 
reset  table  locations  tor  version  5  ......  •/ 

f*  user  selected  notion  . . . .  */ 

/»  coordinates  retained  tor  link  revert  .....  •/ 

coordinates  retained  tor  link  revert  .....  •/ 

f*  coordinates  retained  tor  link  revert  .  •/ 

f*  coordinates  retained  tor  link  revert  .  ♦/ 


/•  butter  store  ot  file  to  be  executed  ......  *t 

/•  butter  store  determinino  data  scan  .......  ♦/ 

/*  butter  to  store  name  ot  second  tile  ......  •/ 

/*  butter  to  store  name  ot  third  tile........  •/ 

character  array  tor  node  labels  ..........  */ 

/♦  oot i on  variable  tor  disolay  to  the  screen.  */ 
/*  butter  to  store  timing  variable  ..........  •/ 

f*  butter  to  store  version  selected  .........  */ 

variable  to  set  orogram  execution  timinq  .  •/ 


•  •  ♦*/ 
»•••/ 


declare  'rubout*  niobally  . .  */ 

read  incut  tile  .......................... 

verify  it  user  wants  to  see  data  structure  */ 

disolay  inout  to  ert  . . .  */ 

select  version  ot  simulation  &  qenisco  set  •/ 

oreoare  oenescn-conrac  . .  */ 

draw  network  nodes  on  conrac  .  •/ 
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ol aces ( ) * 

I  inkO: 
i eark ( ) • 

signal (3#  nubout ) > 
mark i oa( ) ; 
gn  f i n i ( ) ; 


/•  verify  correct  ngnes  <1ra*<n  . . 

/•  function  Oeoicti  network  connectivity 
/*  starting  status  of  network  oackets  ... 
/*  sets  ’BSK'  as  interruot  .............. 

/»  successive  iterations  of  networv  flow 
/*  closing  Out  graohics  facilities  . 


1  I 


/******•***••*••..•««*«*.****«*****«*/ 
/•••*  PROGRAM  FUMCTIOfiS  ***»/ 

/••••***>**..*••»*«**..*****•********/ 


pause (oeroi d )  < 

/•  function  necessary  as  sleep!)  not  coeoatiMe  witn  signal!)  •/ 
i nt  i >  j  >  k ; 

orintf!"**»*>interrtiot......*); 

f or i i =0 » 1 <oero i d • i ♦ t )  ( 

f or ( j so ; i <400 » } ♦♦ )  ! 

f or ! kso; << t  000; ktt)  < 

) 

) 

> 

orintf!****>>wait......'*); 

return; 

) 

rubout!)  ( 

/•  function  enables  the  'brk*  kev  as  the  interruot  signal  «/ 
char  halt; 

soace!3) S 
print  1 

(***•>>>  received  signal  ...  frame  number  l;d...<ret>  to  continue  \n*, 

!iflagt2)); 

or i nt  f 

(”*«•>>>  for  termination  of  program. .. t yoe  'brk*  from  console  \n"); 
while  ! ! ha  1 t sge t char ! ) ) t s ' \n • )  ! 

/•  .Io”nothino  loop  »/ 

» 

s  i  on.i  I  (  3  ,  rubout  ) » 
return; 

) 


soaeel rtturns)  ! 
i  nt  i  ; 

♦or  (isO;  i<returns;  itt)  ! 
print ♦ l*\n*) ; 

) 

return; 

) 


init!)  < 


n 


f 
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181 

182 

18S 

184 

185 

18b 

187 

183 

189 

190 

191 

192 
19J 
199 

195 

196 

197 

198 

199 

200 
201 
202 
20  3 
209 
205 
20b 

207 

208 

209 

210 
211 
212 
213 
219 
215 
21b 

217 

218 

219 

220 
221 
222 
223 
229 

225 

226 

227 

228 

229 

230 

231 

232 

233 
239 

235 

236 

237 
258 
239 
290 


/»  function  op»ns  unformatted  file  A  initializes  start  condition  •/ 
int  a > Ou f c t r > coun t > f dr i > i 7 
char  crt; 

SPace(2) S 

orintf  ("*»*->LINkGRAPH  ILLUSTRATES  METnORK  SIf*ULATI0N  y.00ELS*)f 
sDace(2) : 

orintf  (“•**->EMreR  THE  OF  THE  FILE  TO  BE  PROCESSED.  .BUT  \n*); 

orintfC  UOTE  THAT  THIS  FILE  MUST  BE  Arj  UNFORFAITEO  FILE  \n")» 

orintfC*  PHODUCEO  AS  A  RESULT  OF  EXECUTING  si  mu  I  a tor .out  \n*)7 

orintff*  THE  LAST  LETTER  OF  rtHICH  MUST  END  IN  LETTER  'X*  \n*)r 

error:scaee(2) : 
or i nt  f (" »«*->•)  ; 

isos 

t«6i  1  e(  (esqetchar  (  )  )  •=  '\n’)  < 
couf  ( i 1  sc r 
i 

> 

cbuf  lils'NO*; 
bufet  rsi ; 

f or ( ( so ; J <hu f c t r  ;  /  ♦♦  )  1 

nnu< ( i 1 sf tu  f [ j 1 scbuf  tj 1 ; 

i  f  (Cbuf  I  il sa'x* )  ( 

fbuf  Ijl s*Y*; 
obuf  Ijl =*2*S 

Qbuf  lifllsfoufliflls'vo*; 

i  sbufet  r; 

1 

1 

fd  s  ooen (cbuf r 0 ) ; 
if  ( fd  <s  0)  ( 

or i nt  f 

(•*«»->error  occurred  in  ooenino  file . try  again*); 

soacel 3) : 
goto  error; 

) 

if((couot  s  read! f drnbytesrbeader) )  is  header) 
ori nt f ( "error  occurred  in  nbytes  read")) 
ievents  ~  (nbyteslll  -  1).  '' 

al  s  nbvtes  Ills 
a  =  (nbrtes  1 1 1 -1 )«l«; 
if((cnunt  s  readf tdr f i lei r a) )  Js  a) 

ori nt f ( "error  nccureo  in  filel  read"); 

i f( (cnuntspeaK  fo. nhw t  e*  r  heade  r ) ) ! sheader ) 
or int f (" error  occurred  in  nbvtes  read"); 
a2snbvtes  til; 
as (nbvt es  1 1 1  - 1 ) • 1 bS 
if((ceunt=rean(fd,file2fa))i=a) 

nr i nt f ( "error  occurred  in  fi1*2  read")) 

if(icountsreadffd.nnvtesrheader))!she*der) 
or  in t f ( "error  occurred  in  header  read")) 
s3snbytes  III; 
as (nbytes 1 1 1 ♦ 1 ) *2; 
i  f ( ( count sreadi fd.iotblralllsa) 
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2UI  or i nt f ( "»r POP  occureo  in  iotbl  read*)? 

2112 

2aJ  if((count=peapi(id.noytes,heatlep))lsheader) 

299  OP i nt f ( "eppop  occupped  in  haadep  pead")? 

29$  a9  =  nbvP es  (111 

29e  a=obv t es 1 1 1 ♦  1 ; 

297  if((count=pead(fd»na™e$»a))l=a) 

298  DPi nt f ( “eppop  occuPPed  in  names  read")} 

299 

250  c<ose(id)« 

251  petupn; 

252  1 

253 
259 

255  detepmineO  < 

256  i nt  i * 

257  c*<ap  dS 

258 

259  space(2)f 

260  OPint  f  ("‘••->FUf;Ct  10*4  'DETeRMItiE*  SLLO.iS  THE  USER  \n''); 

261  DPintfC  TO  Examine  ALL  P«I-*AHy  DATA  STRUCTURES* )  » 

262  ovep : aoaee ( 2) > 

263  OPinti 

269  THIS  FEATURE  IS  DESIRED  TYPE  1  IF  NOT  0,  THEN  <RET>*) 

265  soace(2): 

266  ppinti ("♦**•*") S 

267 

268  i=o; 

269  wh i 1 s ( (ds jet c6ap ( ) 1 1= ' \n* )  1 

270  dbufiilsd; 

271  itt; 

272  1 

273  dbuMils'VO'J 
279 

275  isO; 

276  whi leCdbuf (i I i=*\0’ )  ( 

277  dsobuflii; 

278  switcDld)  < 

279  eaie’O': 

280  Scpn=’0*; 

281  bpeak; 

282  ease’l*; 

283  sc  pos* 1 ' ; 

289  rpinttC"«**->l'SE  CONTROL  Q  oMEN  SCREEN  FULL*); 

285  ppeax; 

286  default; 

267  OP  i  nt  f  f "  *  » t-Pei  t  tipp  b1an«  op  invalid  entPv*); 

288  ante  oven; 

289  bpeak; 

290  ) 

291  itt; 

202  } 

293  petupn; 

299  ) 

205 

296 

297  disolavO  < 

298  int  i; 

299 

300  i f (scpn==*  1  • )  ( 
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301  sosee(2): 

302  bo  1  =  f  n  e  1  s 

303  printt("*»»-»  FlLEl  D4I4  STRUCTURE*); 

30U  sosce(2): 

305  OPintt 

30b  ("Infeed  *  mapkei*  .  «coPd  ycoPd  plot  length  \n*); 

507  fOP  (i=0;i<al;  !♦♦)< 

308  OPintf("*d  St  td  \t  Sd  St  Sd  St  Xd  St  Sd  St  Xd  St  So*. 

309  bo  1 ->c  t  p  I  1  . ho  1 ->naweDt  p»  bol ->maPi«ep » bo  1  "hkcordp 

310  bol“>vcopd»ool->plot»pol*>lenqth); 

311  boltt; 

312  ) 

313 

319  soace(2); 

315  bo2  -  f i 1 e2 ; 

31b  oPintt("*»*->  FILE2  DATA  STRUCTUHE*); 

317  SDace(2); 

318  OPintf 

319  ("Infeed  trnotP  intpn  outtPn  i»coPd  vvcoPd  tpnolot  tpnlen  Sn") 

320  fop  (i=0;i<a2;  (♦♦)( 

321  opintf(*X.5  St  Xd  St  Xd  St  Xd  St  Xd  St  Xd  St  Xd  St  Xd  St  Sn",  • 

322  bn2*>ctrl2»bD2-»tPootP,bD2->intPn,bo2-»outtPn, 

323  hfi2->»KeoPd,bo2-»vycoPd,bo2*>tPnplot,bc2*»tPnlen); 

329  bo2t+; 

325  ) 

32b 

327  sbace(2); 

328  OPintf ("***->  I0T5L  DATA  ARRAY"); 

329  toace(2); 

330  foP  (ISO;  I<a3;  (♦♦)  ( 

331  OPintf ("Xd  ",  lotbl M) ); 

332  ) 

333 

339  soace(2); 

335  OPintf ("•••->  NAMES  DATA  ARRAY*); 

33b  soace(2); 

337  fop  (ISO;  i<a9*l;  !♦♦)  ( 

338  OP  i  n  t  f  ( "Xe"  ,na"ie9  1 1 1  )  ; 

339  ) 

390  soace(2); 

391  > 

392  potupn; 

393  ) 

399 

395 

59b  pper are ( t yoe )  I 
597 

398 

399 

350 

351 

352 
355 
359 
555 
35b 

357 

358 

359 
3b0 


/*  function  d»ainrates  set,  scpee"  site  and  folop  table  •/ 
I nt  n , t , y ; 

yso; 

oenl SCO  (set  1 ! 
epase( ) ; 

screenlO. 0,0. 0,51  I .0,51 1  .0); 
set  MOd ( t  yne )  I 
col  tan ( ) ; 

CO  I ont ( 1 1  ) ; 
f OP ( ns  1 2; n< 1 9 ; n ♦♦ )  ( 
colop(n); 

fop(ts0;t<5l2;tt+)  ( 

sedwn t (0,y*t,511,ytt); 
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361  > 

36^  > 

363  petupnJ 

364  ) 

365 

366 

367  draMnode(} 


< 


368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 
395 

394 

395 

396 

397 
598 

399 

400 

401 

402 

403 

404 

405 


/*  ♦unction  disolavs  tyoe  t  location  of  netnoPk  nodes  */ 
char  C » ‘no t P *  ho  I d J 

int  a>0>c1rtol,co‘int>d>entpvrh,i,j,kr1>node>testrii>y>*z7 

floats? 

double  sqrtO? 

bol  =  f i lei? 
asO? 

count  4  1? 

-hi  le((test4(nol'*>naKeetr))!40)  ( 
color(14); 
test*»? 

z  :  inahes [ t est 1 ? 
e  =  •«? 

if  (  ( bs  Cbo  1  ■*>d1  ot )  )  1 4  0)  ( 

Switch  (c ) < 

case  *  I  * : 

no3e4l ? 

»  4  (hol->xcord) ? 
y  4  (bol ”>yC0hd) ? 
fnr(ds0?d<10?dt+)  ( 

seoihnt  {»-16»y»2td»iifyt2td)? 

) 

i f ( vers^sS)  ( 

nptrs  inames (test tl) ? 
hold*  »nptP? 
clplblsatoi (Hhold)? 

1 abel (»»y»t est»clrlbl f node) ? 
col or(  1  4) ? 


1 

else 


( 

clrlb|4|(i; 

I abel (KjyrtestfClrlbl »node) ? 


I  inktbl (al  131*1? 
break  ? 


40o 

407 

408 

409 

410 
41  1 

412 

413 

414 

415 

416 

417 

418 

419 

420 


C  asa  *0* : 

node*2? 

I  4  (ool->>corci)? 

V  4  (t  ol ->vCorr))  ; 

for(osO;H«IO;rttt)  1 

seg"'nt(*'*lb»y-2-rtf»»y-2“d)? 

I 

if(vers4*5)  1 

nntrs  xnaaas  1 1 est 1 1 1 ? 
hnl(14  wnotP? 

Clrl6l4at0i (ihold)? 

1 abel («»y,teat»elrlbl «node) ? 
color!  14)? 

} 

else  1 


153 


1 i nkgraoh .C 


Pag*  8 


fri  Feb  6  07:0O:«5  IP80 


«21 

422 

423 

424 

425 

426 

427 

428 
424 

430 

431 

432 

433 
4  34 

435 

436 

437 
4  38 

434 

440 

441 

442 

443 

444 

445 

446 

447 

448 
444 

450 

451 
45? 

453 

454 

455 

456 

457 

458 
454 

460 

461 

462 

463 

464 

465 

466 

467 

468 
464 

470 

471 

472 

473 

474 

475 

476 

477 

478 
474 
480 


clrlbl=14; 

label  C«fV»test»c1'*lbl»node)J 

> 

linktbl  (al  [31*1? 
break » 
case  *S*; 

node-0 l 

X  s  (bDl->*cord) ; 

V  -  (be I “>veord) » 
for(ds0;a<31 idrt)  ( 
segnnt 

(»-18rd/4f v*l5-d»*tl8*d/4,vtl5-d) ; 
1 

clrlbl—247 

label (K»v#test»cl rlbl f  node) f 
break  1 
case  *3*: 
node-0 t 

X  =  (bo  1 “> xcord) f 

V  = ' (bo  I •>vcord) f 
(or(d=0;d<31;dr»)  ( 

seqirnt  (x-l8»v-l5»a»xrl8»v-l56d); 

> 

(((verss=3)  ( 

notr=  ftoawes (test ♦ 1 1 » 

holds  xnotr; 

cl rlblsatol (ihold)l 

1 abel (x,v»test.clrlbl »node) 1 

co1or(14); 

) 

el  se  < 

clrlbl»l«; 

label (x>v»testfClr1bl »node) f 

} 

break! 
case  ’T*; 

nodesO; 

X  =  (bpl ->xcord) » 

V  s  ( pel ->vC6rd) ! 

■  for  (ks0;k<l4;kr6)  ( 

*sk; 

(s(x”(*cirtt324. -*•*))); 
i s V ♦*  r 

ls{xr(sort(324.-s*s)))r 

seoTint  (i*j»l»il» 

1 

for  (xs0;K<l4!k+f)  ( 

s=k : 

(s(x»(sqrt(3?4,»x«*)))! 
j  sv»a ; 

ls(xt(sQrt(324.-s*s)))t 
aeoKnf ( i >  i  > 1 >  j )  > 

) 

ff(vers3:3)  < 

notr  s  3na'res  ( t  es  t  f  1 1  ! 
hold  s  xnptr! 
clrlblsatoi (Khold)! 

1 abel (x.vxtestfClrlbl » nooe) 1 
color (14)1 

1 
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et«e  < 

clrlrlsias 

laoel («fV»te»t.clrtbl »noae) ? 

1 

break; 

default: 

or i nt ♦ 

(*nai>e  not  valid  identifier  it 

soace(2) t 

break# 


1  inktbl  ta)  f01=eount; 
linktbttaldl  -  *• 
linktbl  lal  (21  *  y# 
a»*; 

I 

count 

oo 1 ♦ ♦ ; 

1 

i  t  ( vers  =  =5)  ( 
entrysO; 

uniduetol  (entry)  (01*1 inktbl  [OJ 
uniduetbl  (entry!  ll)=!inktbl  (0) 
uniduetol  (entry)  (^)=linktbl  (0) 
uni  duet  Ol  (entry)  (3)—linkfcl  (0) 
t n 1 C t  rs 1 » 

for ( i =0 ; i <*} i ♦♦)  t 

i  t  (uniduetbl  (entry)  (',  (  « 
uniouetbl Cent  rv)  (21 
/•  do  nothing  »/ 

) 

else  < 

ent  rytt; 

uniduetbl  lent  rv)  (01 
uniduetbl  (entry!  [  1 1 
uniduetbl (entry) (2) 
uniduetbl (entry! (J) 
tblctrt*; 

)  • 


slinktbllitUlll  8^ 
ss ) i nk tb 1 1 i ♦! )  (2)  )  ( 


:) inktbl  (itl)  (0) t 
s| inktbl  (itl)  (1)  ; 
si  i  nktb)  (itl)  (21  > 
slinktbl  (itl)  (3); 


rorr 1 ot  =a; 
return; 

) 


places) )  ( 

int  h#i#jtk; 

i f ( SC  rnss ' t  * )  ( 

print  (("'•»»->)AT4  SIX'JCr!J«e,  LlNKTHL  ■); 
soaC" ( ?  ) ; 

f or ( i so; i cnbrol ot ; i ♦ t )  ( 

for(hr0;h<asht»)  ( 

printf("Xn  — " # I ( nk t bl  (i )  (h) ) ; 

I  » 

I  soace(l); 

I  ) 
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5«1  soace(^) ! 

542  if(versssl)  I 

545  crint  ♦  ("*»»->n4TA  ST41ICTLIHE  UN  I  DUE  T  uL  *  )  ; 

544  aoace(2) } 

545  f or (  i so ; j <t bl et p* j  ♦♦ )  < 

546  fOP(k=0;K<4;kP»)  < 

547  OPintt("Xd  » un  i  quetb  1  I  j )  Ik)  )  J 

548  » 

549  soace(l); 

550  > 

55)  > 

552  kc>ace(2); 

553  ) 

554  petupn; 

555  ) 

556 

557 

558  1 aee 1 ( > X > V V > 2 2 < : I n ! <□ 1  ace)  < 

559  /•  aetep‘"ines  ooiie  label  olace'oef't  in  pelation  to  node 


560 

561 

562 

563 

564 

565 

566 

567 
566 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 
560 
581 

562 

563 

584 

5«S 

566 

5«7 

586 

569 

590 

591 

592 

593 

594 

505 

596 

597 

596 

599 

600 


i nt  f  *  i  • 

colop(cib1 ); 

swi tcp  (p  t  ace  )  < 
case  0  : 
iH**>250)  ( 

foP(is0ti<2riP*)  1 

cpapac((««»(22p(8*i)))»py»naiiiest22))? 

zx**t 

1 

) 

else  ( 

f OPt i sO  j , <2; i ♦♦)  < 

chaPac((*x-(34-(8»i)))»yv»nai»esl22))> 

22t*J 

1 

) 

bpeak; 
case  :  : 

»f{«»>250)  1 

fnp(is0{i<2;it*)  < 

chaPac  ((»»»4t(6»i  ))xyyt2rnaipes(22l  )  I 
ZZ**l 

i 

> 

e  t  !ie  { 

cnaracC  (  •x'f.SF-lOxi  ) )  )fvy»2»na"ies  l2z)  )J 
ZZ**} 

» 

) 

h  p  •  a  «  J 
case  .?  : 
i f ( »»>2SO)  f 

<op ( i sO; i «2; i ♦ ♦ 1  i 

cnapac(t»»*4*(8»i  llryv'tOrnameslzi) )J 
ZZ**} 

1 

) 

else  < 
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601 

602 

603 

604 

605 

606 
607 
60S 

609 

610 
611 
612 

613 

614 

615 

616 

617 

618 

619 

620 
621 
622 

623 

624 

625 

626 
62  7 
628 

629 

630 

631 

632 

633 

634 

635 
6  36 
657 

638 

639 

640 
64] 

642 

643 

644 

645 

646 

647 
64? 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 


tor(i=0;i<2;it»)  < 

e6arac(('<»-(52“(8*i 

) 


lOfnames (22) ); 


> 

break: 


return; 

> 


HnkO 

/* 


( 


function  links  nodes  bv  information  stored  in  iotbl  •/ 
int  a>c>  in  I  nil  »oiit  14  01  rDlofin{401  «plotout  [401  ; 

int  content«ktr<i>k>">>maxinctr«maxoutCtr>l>Orin<i,iny>outx>outy; 

col  or  I  1 4 ) ; 
content  =  iotbl  Ill  7 
ktrsl ; 

tih  i  I  e  (con  t  ent !  ®0 )  (' 

max i nc t r = i ot o 1 (ktrlJ 
f  or  (  i  =0  ;  i  <cont  mt  ;  i  ♦♦  1  ( 
kt  rt»; 

in  li 1 xiotbl  (ktrl ; 

» 

kt  r*  +  ; 

COntent^iOtbl  Ikt")  } 
maioutctrsiotbl (ktr); 
for(i SO; ikcontent » i  ♦♦)  < 
ktr**; 

out  (i) siotbl (ktr) » 

> 

f or (osO ; o<max i nc t r ;o**)  ( 

rlof  i-'irlso; 

f  Cir  (  I  S'l ;  1  knnrni  ot  ;  1  ♦  ♦  )  i 

i  f  ( i  n (o) ss ) i nk tbl  (  I  )  ( 0)  )  ( 
plot i n  lo) =1 ; 

1 snbrpl ot  : 

1 

1 

) 

f or (psO ;o<ma xeotc t r ;p** )  ( 

c  1  ot  out (ol =0; 

♦  or<T=f>;l<norplof;i  +  *)  ( 

i  f  ( u  t  ( i>  I  =  s  I  1  n  k  t  P  I  [11  [01  )  ( 

<  I o *  out  IpI s I ; 
t  sroro I  of ; 

) 

1 

1 

forlk  =  ');x<"-ixinctr;k**)  ( 

f  or  (  i  SI) ; »  kmaxcut  C  t  r ;  i  ♦  ♦  )  < 

i  f  i  ol  r,f  i  n  (k)  ssl  H  p)  ot  out  ( i  1  ss  I )  ( 

asin  Ikl  ; 
hsniit  (il  ; 

for ( 1 sO; I <nhrp1 ot M ♦♦ )  ( 
if  Oinktb)  (1)  I0)3sa)  < 
inxslinktbl  11)  Ill; 
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661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 
681 
682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 
70b 
707 

706 
704 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 


inv  =  1inktb1  (1)  (2)1 
1 snPro lot; 


1 


for(ii»sO;m<PbrDlot  ?"♦♦)  ( 

«  t  ( )  inktbl  I’")  10)  s=b)  ( 
OufuSl  inktbl  lifll  (1) 
outysl  inictbl  (•**)  (2) 
msobrol ot ; 

) 

> 

linesfinK/inyj  out  »  t ou t  y ) * 


) 


) 


kt  r*y; 

COnten^-iOtbt  Iktr)  7 
} 

return; 

) 


1  i ne s ( « 1 » y 1 « » 2 » y 2 )  ( 

int  1nkcase«»»v; 


if(*1<a»2)  1 

if(yl<=v2)  i 

it(»tss»2)  )nkcase«3; 
else  < 

if(y|ssy2)  InkcasesO; 
else  )nkc*ses4; 

) 

) 

else  < 

'  iU»lss«2)  Inkcasesi; 
else  lnkcase=5; 

) 


) 


else  ( 

i  f  (vl<=v2)-  i 

jf(vts5v2)  lnkcases2; 
pise  1 oKC  ase-7  7 

1 

e  1  SP  1 n.c  3Sf-o7 


1 


S«itcnllr<fe<';)  ( 
ease  0 : 

eeOTnt(K|y2‘i#vI  »a?‘*20»y2); 
V  s  v2 ; 

I  »-u,v-a,»,y); 
t«-’J,y*4,ii»y); 

rreay; 
case  1 5 

seT*'nt  (■)Fyl*20f«2»v2e20); 

»  s»2 » 
vSy2*20; 

seOTnt (»”4,v»4r«»y); 

aeOBnt(«»4*y*4»*fy); 
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721 

case  2: 

722 

Se6"'nr(«t«?0,vl»i<2«20»v2)» 

723 

»s«2*20; 

724 

v  =  v2  J 

725 

SeO'"6t(ii»4,y-4,«,y); 

726 

SeO'"ntt»*4»v*4,»,v>» 

727 

bre3<  > 

728 

case  3: 

729 

Seg''<nt(il,vl'f20««2rv2~20); 

730 

.s«2; 

731 

vSy2-20; 

732 

SeQ'rfit(«”4,y-4,»,y); 

733 

Seo-'nt(*«4,y-4,»,v)J 

734 

break : 

735 

cas« 

736 

seomnt  <» 1 »24,yH-24,»2-24,y2-24); 

737 

K  s  ^  •  1  J 

738 

vSy2“16; 

739 

segnetlxjy-ft.K.y): 

740 

Seg66t ( x*6 f V r X > y ) r 

741 

sea"'nt(x2-24,y2-24,x,v); 

742 

break; 

743 

case  5: 

744 

se<.i'nn  t  (  n  i  *  2^  f  y  1  f  *2*?^  #y2  +  2^)? 

745 

x2x2*16; 

746 

vSv2>l  fi* 

747 

Sec!T6t  (x>y«b>Xxv}; 

748 

seorrt (x*6*y»x,y)» 

749 

seg^nt ( x2>24, y2^24x x> y } ; 

750 

break; 

751 

case  6: 

752 

a*n'6t ( X 1-24, y 1-24, x2*2».y 2+24) ; 

753 

xSx2+ 16; 

754 

yay2k 161 

755 

Ssa'"nt(x,yt6,x,y); 

756 

sea'''6t(xke,y,x,y); 

757 

se6-6f ( »2*24,v2*24,x,y); 

758 

r  ; 

750 

cas-  7 : 

760 

seg-nfl xl-2  4,vl  ♦24,x2*24,y2”24); 

761 

ic  =  k2*  le; 

762 

v=y2-l6; 

7o3 

764 

765 

ifV)? 

766 

?r  r^e»k  » 

767 

} 

7e8 

ref  urn ; 

769 

1 

770 

771 

772 

select!)  1 

773 

i  n  t  i  ,  r. ; 

774 

Char  Vf 

775 

776 

sc'oce(2) : 

777 

pri6ttC»««->TMtR5  ARE  »  VEP8I0N5  TO  THIS  GRAPHICS  PACKAGE 

778 

prinrtl*  PLEASE  SELECl  ONE  OF  THE  FOLLOUINC 

VERSIONS: 

779 

aasin:soace(2) t 

780 

er»6tf("  VERSION  I  PETRI-NET  PACKAGE  .. 

159 
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I  ^ 


OPint»("  VE3SI0N  2  ...  PACKET  REPBESENTATION  ...  TTPE  2  \n*); 

crinttC  VERSIOW  3  ...  MULTIBOUTING  PACKAGE  ....  TYPE  3  \n"); 

n  =  0  S 

t wi ce : space (2) t 
o  r  i  PI  t  Y  ("*•*-»*)  * 
n** } 

i  s  o; 

while  ( ( w=ae t Char { ) )  1=  *\n')  ( 
vOu  ^  I  i 1  =  V  > 
i 

) 

wbutlil  =  'VO'; 

i  =  o; 

whi  leivbuf  til  1=  'VOM  { 

V  a  vPuY ( i 1 ; 

iffnssl)  < 

Sw  i  tch ( V )  i 
case  *1': 
vers  s  t; 
break, 
case  •2'; 
vers  =  2J 
break « 
case  'l‘i 
vers  s  3; 

break : 
default: 
orint  f 

(«•**•>) rcorrect  version  try  againi*); 
goto  again: 
break: 

) 

i  ♦  ♦ : 

) 

else  < 

switch(v)  ( 
case  *0*: 
set  3  o: 
break : 
case  '!•: 
set  *  l: 
break  ; 
case  *2’: 
set  -  2; 
r reak; 
default: 
or  1 nt  f 

("•••.> i ncorrec t  genisco  Set  try  again"); 
pr i f 

l"  set  selection  shoulo  he  0.1»or2"): 

n  3  1 : 
note  twice; 
break  ! 

} 

iff; 

) 

) 

ifCnisl)  ( 

soacc(2) : 


r 
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841 

842 

843 

844 

845 
84b 

847 

848 

849 

850 

851 

852 
855 

854 

855 
85b 

857 

858 

859 
8b0 
8bl 

8b2 

8b5 

8b4 

8b5 

8bb 

8b7 

Bb8 

869 

870 

871 

872 
871 

874 

875 
87b 

877 

878 

879 

880 
881 
882 

883 

884 

885 
P8b 

887 

888 
889 
800 
801 

892 

893 

894 

805 

89b 

897 

898 

899 

900 


orint  M  SELECT  THE  GENISCO  SET  YOU  hISH  \n*); 


ori nt  t ( " 
orint  ♦  (" 
goto  toice! 


THE  program  to  8£  DISPLAYED  TO .  Vn"); 

I^-i  C3  LAR  EITHER  SETO,  SETl  OR  SET2  \n*); 


ret  urn  J 
1 


i mar k ( )  < 

/•  narks  initial  state  of  system  by  calling  agorooriate  function  »/ 
int  o • CO  I  our • e< g f « > y ; 

bo  I  -  f i  I  e 1 7 
of  I  tcol ors3! 

col  or ( of  1 tcol  or ) ; 
col ours2; 
ctroverflousO; 

wRile  ( ( g= ( OD 1 ->nameot r  )  1  1=0)  1 
i f ( ( b  =  ( be  1 ”>p I ot ) )  1*0)  1 
Switch (yers)  < 
case  1: 

i versl ( ) ; 
break; 
case  2: 

i ver s2(col our ) ; 
break ; 
case  5: 

i  versKcol  our)  t 
br8ak; 


) 

) 

i  f ( df 1 1 col  or  1 *3)  co1or(3); 
ool 


> 


CO  I  or ( 1 4  )  ; 

orintgCO, 550. ,480. ."TIME  FRAME  =  1*); 

orereadC 1 ) ; 

h  i  1  i  t  e  ( ) ; 

di sol  a ( )  J 

hold! ) ; 

reset  (1 ); 

CO  1  or ( 1 3 ) ; 

ovrflowO; 

print  1(0,  350. ,480. ."TIME  FRAME  :  1»); 
return; 

) 


RoldO  ( 

int  i  ; 

t i re : so  see ( 2 ) ; 

rrintt("***-»THlS  IS  ThE  TMTIAL  STATE  l.F  1H£  \ETa0RK  \n"); 
erintfC"  f.Mt5  ThF  TIMtmg  miMiF  EOR  EtECUTlU?,  ....  \n"); 

printK"  ’O’  FC-  ru  DtlAtS  ..'I*  FUR  FRAME  PAUSES  \n«); 

print  f ("*•*->")  r 

i  s  o; 

wh i 1 e ( ( t i ni n3=getchar ( ) )  is  ’Nn’)  ( 

tt’Ut  ( i  1  s  t  ining; 
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901  i+»; 

902  ) 

903  tbuffil  =  'NO*; 

90« 

905  i  s  o; 

906  KhiteltnuMil  1=  ’XO*)  { 

907  timino  ~  tru^lilJ 

908  i++; 

909  > 

910  i t ( t i mi  no  1  =  ' 0  '  4&  t i n i oa J  =  *  1  * )  ( 

9tl  or i nf ♦(" •»•->! ncorrac t  varsior  try  aQain!*); 

912  goto  tina* 

913  > 

919  return; 

915  > 

916 

917 

918  ivarsK)  ( 

919  int  ef xrvtz; 

920  char  check: 

921 

922  a* It'D  1 ->narKer ) ; 

923  »= (hoi ->xcoro3 : 

929  V=  (hoi -Xycor-J)  ; 

925  zs ( ho  1 'Xnaoeof r  1  ; 

926  i  f  (  (chac k  =na>i>es  (z h  1 J  )  1  5  •  I '  ( c hac ksnatas  [z  + 1 1  )  1  * '  0 ' )  ( 

927  crinta(0,.-3.o.5tl.-(y3)."Xci".e); 

928  1 

929  else  < 

930  it(eheeksnamastz*llss*I’)  Drintg(0»*“19.0.51l.*(v*2)»“Xd"»e) 

931  else  or i nt g( 0» »»19.0»51 1 . •(y-9) , "Xd" »*) J 

932  1 

933  return; 

939  ) 

935 

936 

937  i vers2 ( CO  I  our )  ( 

938  iot  erXrVfZ; 

939  char  check; 

990 

991  e= ( ho  1 -xr a rker ) ; 

992  *  =  (hol->xcor<13; 

693  v= (no  1 ->y cord) ; 

699  ?= ( bo  1 -XnaTeot r  )  ; 

995  ((((checksrjfaslztlllls'l*  .<A  (check5n3'rcsIz*H)J**0')  ( 

99o  oc K t 2 ( X » y • e » CO  I  our ) ; 

99  7  1 

998  else  < 

999  it(cr«cx-''»’'v5'. z*1l==*l''  or)r'tg(0fX»19.0,511.“(y*8)»"Xd"»e) 

9$o  else  or  i  ^  t  o  (  9 , » - 1  9 ,  !> ,  h  I  1  ,  -  (  y -9  j ,  “  Xa"  f  e )  ; 

951  1 

952  return; 

953  1 
959 
655 

956  i vers  3 ( ea I  our )  ( 

957  char  keeOf*kotr; 

958  »nt  8» aa»h » 00 »e »cc»c I r (f 1  red) » i » k»n, St aek , tot al » x»y; 

959 

960  totai=o; 
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961  n=lJ 

962  « s  (ho  t  ■•>«eord) ; 

965  v  =  (do  1 -> vcoro) ; 

96«  a= (bol “> 1 engt h ) ; 

965  b=(bol->naneDtr); 

966  c  =  (bo  1 •>marker ) ; 

967  ( ot a4 =t ot a ) *c > 

968 

969  if(e>0)  < 

970  f  Of  ( i  =0;  i  «.€*«♦♦  )  ( 

971  kotr  -  anames (b>a~21 > 

972  keeo  =  *kotp; 

975  e t f tnl satoi ( Hkeeo) # 

979  n«»; 

975  > 

976  ) 

977 

978  kotr  =  &nai«ea  (b»al  J 

979  keeo  -  ‘kotr; 

980  stack=atoi (&keeo) • 

981 

982  it(narTies(h»(a-ni  l  =  '0’)  ( 

903  i  f  { naTies  (h<- ( a- 1 )  I  =s  * 2  * )  s t  ack  =  s t  ac k  t20; 

989  else  stack  =  stack  *  10; 

985  1 

906 

987  f or ( i =0 » i <s t ac k« 1 ; j t ♦ )  ( 

908  bolrt; 

989  aa*  (bol ->  1  eriQth ) ; 

990  bo9  (bo  1 -anaireot  r )  ; 

991  cc  =  (Dol->cT'arker); 

992  total stotal tee; 

995  if(cc>0)  < 

999  for(ks0;k<cc;k*+)  ( 

995  kptr  s  Jnames (bbtaa-2] 7 

996  keeo  a  ‘kotr; 

997  c 1 r Inl satoi (ikeeo) ; 

998  ntt; 

999  } 

1000  } 

1001  ) 

1002  iflnamestp+ll  1  =  'I*  &R  na-"es  (bt  1 )  1  = ’O' )  ( 

1005  ockt5 

1009  (Iirv>t0tal>c1r(|),clrl2l>c1r[51>c1r(4],c1r(5)rc1rl6l>clrl7]r 

1 005  colour); 

1006  } 

1007  else  <  ■ 

1008  if(oa->eslri  +  llss*I*)  pr>nto(i),<-l9.0f511.”(y*2)f"XiJ*rtotal); 

1009  else  or  i  n  t  o  ( •> »  X- I  9 . 0  r  5 1  1  ,- ( y*9  )  ,  »  t  ot  a  1  ) ; 

1010  } 

1011  return; 

1012  ) 


prerea-K  flail  ( 

int  oucxet  l2l»eount»f(1*fo»»»ni.'rtrns; 
if(flaois5)  ( 

If(flagssl)  ( 

fd  -  ooen  (fbuff  0); 
if  (ff(<s0)  ( 
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1021  ppi nt f ( " ***->epror  occuPPea  in  ooening  fd  file")* 

1022  > 

1023  fdtbufsfd; 

1029  ♦o  =  ooen  (qbuf>  0); 

1025  if  (♦a<s0)  f 

102fe  OP i n t f ( " • •*->epPOP  occuppeo  in  ooenina  fq  tile")? 

1027  \ 

1028  tdqbufsfq? 

1029  ) 

1030  i f ( (count spead  (fdtbuf*  bucket#  2))1=2)  < 

1031  OPint f ("*««-»ePPOP  occuppei  in  to  bucket  pead*)? 

1032  > 

1033  it((count=pead  (fdfouf#  buffepf(iewents*2)))J=(ievents»2))  ( 

1039  DP i p t f ( " • • • •>eppoP  occuPpeo  in  huffep  pead")? 

1035  ) 

1036  i f ( (count spead  (fdobuf#  bucket#  2))1=2)  ( 

1037  OP i nt < ( ” *  * *”>ePPOP  occupped  in  to  bucket  read*)# 

1038  > 

1039  i f ( (coup t • Pean  (taaouf#  cn t p I # 2 ) ) 1 =2)  i 

1040  opintf(**»»->eppop  occuPPed  in  cntpl  pead*)# 

1041  ) 

1042  i f (cnt  Pi  101 s  =  0)  { 

1043  space(2): 

1044  OP i nt f ( " *  *  * ■> t ne  last  netMOPk  state  has  been  achieved*)# 

1045  k t n f rape= t pameskl » 

1040  soace(2)? 

1047  ) 

1048  else  ( 

1049  i f ( (count spead  (tdobuf#  bucket#  2))is?)  ( 

1050  OPi nt f ( "»»»->eppop  oecupped  in  bucket  reed*)# 

1051  1 

1052  nbPtPPS  =  cntPlt01»2? 

1053  i ♦(( count speao  (fdjcuf#  t i p i nq# nb p t pns ) ) 1 »  nbPtPns)  ( 

1054  opint f (**»*“>ePPOP  occupped  in  fipinq  pead")? 

1055  ) 

1056  } 

1057  > 

105.4  else  i 

1059  c 1 ose ( f dfbuf ) ? 

1060  c 1 ose( tdobuf ) # 

1061  ) 

1062  petuPn? 

1063  ) 

1064 

1065 

1 066  h i 1 i r  e ( )  ( 

1067  int  o#i#)n(?5I  #intr>l#|»«#l#'P#P'a»inctP»P'a»oiJtctP#n,out  (251  # 

1060  Outtr>l#D#r!lotinl2'il#nlctoutl25)#in«#iry#gu»»#outv? 

1069 

1070  taocouot-O; 

1071  fop(i=o;i<entplioi;i*+)  ( 

1072  bo?=file2? 

1073  fop(j=0;i<fipin3(il-l?i*»)  i 

1074  br2t+; 

1075  1 

1076  i n f f 1 s ( P n?”* i n t Pn ) ; 

1077  ou 1 1  o  1  =  ( nc2”»c'ut  t  pn)  ? 

1078  Ta « i nc t p= i otn I  t i nt fl 1 ? 

1079  f  DP  (  k  :0  ;  kk-nsk  i  nc  t  p?  ket )  ( 

1080  intbl^t? 
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061 

opa 

065 

08« 

0«5 

066 

067 

088 

089 

090 

091 

092 

093 

09a 

095 

096 

097 

098 

099 

100 

101 

102 

103 

loa 

105 

106 
107 
106 

109 

110 
111 
112 
113 

n« 

115 

116 

117 

118 

119 

120 
121 
122 
123 
12J 
125 
12f> 

127 

128 
120 
1  50 
til 

132 

133 
139 

135 

136 

137 
136 
139 
laO 


in  la) aiotbl  1  i ntbl 1 » 

> 

mafoutetrsiotbl (outtbll f 

f or ( 1 =0 : I <ma«Out c t r; 1 ♦♦)  1 

out tb) 

out  Mlsiotel  louttbll; 

) 

for(os0;o<mai(inctr;ptt)  1 
o  1  ot  1  n  to] :0 • 

♦  o<* { 1  =0  j  1  <nbro I  ot ;  I  )  ( 

ifClnlolsslinktbl  til  101) 
plot ib  to) 3l I 
1 Snbppl ot  J 

> 

1 


1 


1 


tor‘(P  =  0So<">a*outctpJpt+) 
ol otouf (ol =0; 

♦or ( 1 =0 ; 1 <6brol ot ? 1 ♦♦)  t 

i  ♦  ( Out  to)  =  =  1  i nk t b  1  1 1 1  tOl  )  1 
olotout  to) =1/ 

I snbrpi ot » 

> 

) 

t 

♦  or  (  Ii.s0 ;  n«-na«  i  nc  t  r  J  k )  ( 

♦  or(i3=0;p<ma»eotctr?p+t)  < 

i f (p) ot < n  Ikl ssl  pi otout tg] sal ) 

♦  or  (r-sO  J  nknb  ro  1  0 1 )  b  +  r)  1 

i  ♦  (  1  i  nktbl  Im)  tOJ  ss<r>  IkJ  )  < 
lri»s1  inktbl  tml  tl)  t 
j  nys I  1  OK tb I  t*)  12 J  t 
msnbrol ot  f 

> 

1 

♦or (nsO ; nknbrol ot ? n*t)  { 

♦  ♦Clinktbl  tnl  tOl ssout  tg) ) < 
outxslinktbt  In]  11] I 
Out ys I i nk t b I  (n)  t2J  » 
osnorol ot } 


1 


< 


colortll  ); 

1  i'>3k(ir*#l«v»r»uty»outv)? 

•  i  «t  ,'''‘-»Irf>r'COuntlslr, «« 
vi''ktort»lr  ai  r  oun  t  )  *  1  ny  f 
you*  krorr  Itat-foiinrl  scutkS 
yr-jrsrore(farcco'’t1  *outyr 

♦  a'' t  ouot  ♦  ♦  ? 


return) 

> 


1 


Inkpvt ( ) 

♦  nt  i  fln»»  inv,oiit»fOutv; 
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I'll 

l«2 

co1op(14); 

l«J 

f OP ( i so ; 1 <t abcouftt • i pf 1  ( 

lau 

ipixs  xinstorelil* 

195 

tnys  yinsrorelil* 

l«6 

Out«s  (Out  St OPe  1 4 1  * 

t«7 

OUtyS  y ou t St OPe  1 4 1  * 

148 

1  4PieS(  4n(f  4nv*out(*outy)* 

l«9 

1 

150  petuPn* 

151  > 

152 

15S 

154  St  aqe(  ) 

( 

155 

156 

»  f 

(ktOfPamelsO  k t ft t pame< ( Pamest 1 ) 

157 

opepeaa(2) « 

158 

4 t ( k t 8 f raf* 1  * ♦ pawes 1 11  1 

159 

a  I  1  i  t  e  <  1  * 

160 

4  f ( 1 4  m  4  nq=  =  *  1  * )  < 

161 

04  sol a(  1  S 

162 

oausel 1 ) * 

163 

> 

164 

) 

165 

1 

166  petuPn* 

167  1 

168 

169 

170  marklngO  ( 

171 

/* 

fuftctlopi  Olsolavs  successive  iteps 

1  72 

i  p>t 

coloup*0pa«*»4»mapk»f>»»,y; 

175 

174 

bol 

3  filed 

175 

Pt  5 

2; 

176 

177 

/• 

folloviftb  looo  opocesses  ievent  “  < 

78  t or  ( k t  h  f  paire  =  0 ;  k  t  h  f ♦  rames ?  k t  h  t  r*itie  +  t )  { 

79  staged* 

80  i t ( kt h f Pame>0)  < 

81  peset()> 

82  coIop(lJ)J 

83  Cv p  t  ^  s"*  d  J 

8'4  OPinta(.'',JSf.,4<«(l.,*r(:..£  =  ta'.n); 

85  n  »  ♦  ; 

8ft  1 

87 

86  ftpa*  I  <  •  r  1  -  »i' I  of  )  # 

89  '  *  I  f  1  ft  p  =  5 ; 

90  ep>'o'‘  (f’lTco'op)* 

91  codips?; 

92  e  t  po  v«p  f )  ot<so; 

9J  fop  (4*0*  i  <  ieveftts*  (ft)  I 

9«  ft  (;fpaw  ss  1)  t 

95  ict  r  s  (  ; 

9o  Sfcircft  fvep#)  ( 

97  case  IS 

98  veesldl 

99  nreakl 

200  case  2s 
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1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 
1200 
1210 
1211 
1212 

1213 

1214 

1215 

1216 

1217 

1218 
1210 
1220 
1221 
1222 

1223 

1224 

1225 

1226 

1227 

1228 
1220 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 
1230 
1240 
124  1 

1242 

1243 

1244 

1245 

1246 
124  7 
1248 
1240 
125U 

1251 

1252 

1253 

1254 

1255 
1?5»* 

1257 

1258 
1250 
1260 


ver82(colOui“)  ? 
break ; 
ease  3: 

vers3(col our) ; 
break; 


> 


1 


i  -  ictr**: 

i f ( of  1 1 col  or  1 =3)  co1or<3); 
bol 

oraw  s  (ool  “>  plot); 


1 


tco1orsl4; 
eolorCafI teolor); 
en I  our* 1 3 ; 

or  i  n t  a  1  0  #  350  • »  480 ,  #  **  T I FRAME 

i  f ( t i wi no  =  s *  1  *  1  oauae(2); 

I nurwt I ' • 
bol  -  f i 1 e 1 ; 


Xd“»n); 


> 


prereaoC  3 ) « 
return; 

1 


ovrflOHl)  1 

iot  i »x»y; 


i  so; 


uhi 1 eCovert (onto  I (i 1 f07 1*07  ( 

«sovertloutbl (il  tOJl 
ysoverflowtel (1) til* 

blocynStS")*!  .,511.-(y»tO)*t..(*t54)»l.,Sll.-y*l.)> 
) 

block{(»-50)»l.,511.-(yyl0)«l., (i<-35)»l.»511.-y*l.)7 
1 

overtlowt,bl  (il  (01*0; 
overfloxtnl (il (11*0; 

i 

1 

return; 

1 


vers  1 ( 1  i 

inf  e»  »  >  V , / i 
enar  eh^ek* 


e*butf#r(istrl ; 

•  s(bol  •»«eor-i) ; 
ysinol  •>ycorfll ; 

sslnol-snairei’tr);  j 

i#(ffheeksna-rslt»n)!**l’  ( c  hre  k  Sna<res  1 F  ♦  1 1  )  I  -  '  0  1  ( 

print3(0#«*3*O#51l**(y*3)#'*Xrt‘'»a); 


1 


i f (chbcksnanns (f ♦! 1 **• I  * )  ori nto(0» «-l 4,0»51 1 .“(vt2) » 


1 
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1261  else  orintaCOfM-ia.O.Sll.-Cv-Pl/'Xd'.e); 

1262  ) 

1263  return! 

1264  ) 

1265 

1266 

1267  vers2 (co 1  our )  { 

1268  int  narkfXfyd; 

1269  Char  cheek! 

1270 

1271  * s (bo  1 ->*cord)  ! 

1272  y s (bol -> vcord) ! 

1273  zs(bpl“»na»eptr)! 

1274  mar k=bu t f er ( i e t rl ! 

1275  « ♦ ( (chec k=names Czt 1 1 ) 1 - *  1  *  &&  ( checksnames (7+ 1 ) ) 1  = ' 0 ' )  ( 

1276  '  pc k 1 2( X > y > mark < CO  I  our ) ! 

1277  1 

1278  else  ( 

1279  i f ( (chec ksnames (z  +  H ) ==•!*)  orintg(0»x-14.0»511.-(y+2)»*Xd* 

1280  else  or » nt  a(  0 »  x-1 4 .0»5l  1  .-(y-9 ) ,  *3!ii"  ,iiiark)  ! 

1281  > 

1282  return! 

1283  ) 

1284 

1285 

1286  wers3 (col our )  < 

1287  (nt  a« aa>b>nb>mark <markSrC I r  (fi red! r j , krnt stacks  tot al > x>y! 

1288  char  keeo>*kDtr! 

1289 

1290  totalsO! 

1291  nal! 

1292  XS (OP ( •>xcordi » 

1293  ys(bDl»>ycord) ! 

1294  aa (bpl >>l enqt h ) ! 

1295  bs (bol -»nameDt r ) i 

1296  mark*bu(ter (ietrJ ! 

1297  t ot al at o t a  I rmark ! 

1298  «f(mark>0)  ( 

1299  for( jaO! j<mark! i*t)  { 

1300  kotr  a  Knaves (bta~2) ! 

1301  keeo  "a  xkptr! 

1302  c I r (n] aatol (&keep)! 

1303  ntt! 

1304  > 

1505  1 

1306 

1307  kptr  a  &names(btal! 

1308  keep  a  xkotr! 

1309  stackaatol (Kkeeo) ! 

1310 

1311  M(names(bt(a-l)l  la'O'l  < 

1312  i t (names  lot (a-1 ) 1  as* 1 • )  st ack ast ack 1 1 0! 

1313  else  ( 

1314  i f (names (bt (a'l )) as* 2* }  stackattsckt20; 

1315  else  stack  a  stack  t  30! 

1316  > 

1317  1 

1316  torljao; j<stack«l! Jtt)  ( 

1319  bplet; 

1320  ietrffl 


f mark)! 
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1321 

1322 
1523 

1324 

1325 

1326 

1327 

1328 
1529 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

I  344 

1345 

1346 

1347 

1348 

1349 

1350 
1551 

1352 

1353 
1  354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 
1  365 
1  364 
1365 
I  366 
1367 
1  Sb** 
1564 

1370 

1371 

1372 

1373 
1  574 
1375 
1  376 
137  7 

1378 

1379 

1380 


aas (hot -> I ergt 8 1 » 

6b5(bol”>6ameDtr); 
ma^kssouffSf'IictrlJ 
rotal^cotal tm^rkai 
i  f  (">apie«>0)  { 

♦  op(ii  =  0;k<6apks}k  +  *)  < 

kntr  s  &nanea tbbtaa>21 7 
keeo  s  »kotr* 
c 1 p (nl =atoi (&k««p}; 
n»t  J 

1 

> 

» 

i  f  (naiTfS  (bkli  is*  I  *  na«es(btll  !s*0')  { 
pekt  5 

(ii<v>t0tal>ctp(tlrclpt2l«clpl3)>clp(41«c1pl5]>c1p[6]relrt7]> 

colour); 

» 

el  ae  < 

eoiop{3); 

tf(na">»stb*llss‘l‘)  OPir>t3(0,»“14,0»5ll.*(v^2)**’Xd"»tota1)» 
else  opinta(0#ii”14.0»511»«(y”9),"td''»total)7 

> 

petuPoJ 

> 


PC k  1 2 (  xaif  I  s >  va>  I  s  > DO < nt  >c  I  ass)  < 

swi t e8 (ool nt )  4 
e»se  0: 

break; 
ease  I : 

b1oc<((«a»'S-5)«l.*5n.-(va*is+5)*l.»(»a*is*3)*l.»511.«(va»l5»5)»l. 
break; 
ease  2: 

block((*a*is*3)*l.»51t.«(va*lsp3)*l.*(«a*is*3)»l.»5ll.”(ya*<s"5)*l. 
block{(*s»is*3)*l.»511.“(va»iS“7)»l.,(»e»ls*3)»l.»511.”(ya*is*l3)»l 
break) 
case  3: 

Dlock((Ma«i8”5)«l,»5ll.-(ya«is+3)»l.»(«a*is83)»l.f511.-{ya»iS”3)»l. 
block((«a»is“3)»l.»5ll."(ya«»s*7)»l.»(*e»is»3)»l.»5ll.”(ya»is”l3)»l 
DlockCl»a«is-5)*l.*5ll.”(ya»isrl3)*l.»(»a»*s»5)*l.»511.“(ya*i8+7)*l 
break : 
ease  4; 

rloe<(l''a»i<”3)*1..5l1.”Cya»is*3>*l,»(»a«is+3)*l.»5ll.”(va»is”3)*l. 
block( f »aki s*5l* I •r^l I ••(vaKis*7)kl ( vaxi s+3)kl •rbl 1 ."(yakls*! 3)*1 
oloe«((m«>s”3)*l.»5ll.”<va»is*13)*l.f(»a»lst3)*l.»Sll.“(ya»ls*7)»l 
clock((»»»is*7)«1.,5n.-(ya«is*3)»l.»(xa*is»13)»l.»5ll.”(y8*i8-3)*l 
break ; 
ease  5: 

block((*a»is”3)*l.t51l.-(ya«is*5)«l.ff<a«ist3)*l.»5ll.-(ya»is“i)*l« 
bloe»(l«a«ik-31«l,*5|i,-(»a«is“7)*1,»(»8»iB45)»l.f5M.”(ya«is”I3)»I 
bloek(f«a»'S”3)*I.»5il.”(vs«i5rl3)*l.r(»a*is*3)»l.»511.~(ya*is*7)»l 
nlock((»8*is*7)»l,»51l.”(ya«is»5)*l.»(*a«istl3)»l.»5lI.”(ya»iS”3)kl 
oloe«((«a»<s"l3)‘l..5lt.*{ya«isri)*l.f<»a»»s*7)»l.»511.“(yai<is“3j»l 
break • 
ease  n: 

bleck((*a»»s"3)»I.»511.”{ya»is*3)*l.*(»a*lBt3)*l.»511.-(ya»l8-3)»l. 

bloek((»a«iS“3)*l.»5ll.*(ya»iS“7)»l,»(»a»<s»5)»l.*5ll.-(ya»<B“13)*l 


); 


); 

• ) ; 


); 

.}; 


); 

.); 

.); 


): 

.); 

.); 

.}; 


); 

.); 
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1381 

1382 

1383 
138a 

1385 

1386 

1387 

1388 

1389 

1390 

1391 
1398 

1393 

139a 

1395 

1396 

1397 

1398 

1399 
laoo 
laoi 
ia08 
ia03 
I  aoa 
laOS 
ia06 
la07 

iao8 

1909 

1910 

1911 

1912 

1913 

1919 

1915 

1916 

1917 
1916 

1919 

1920 

1921 

1928 
1983 

1929 

1985 

1926 

1927 

1928 

1989 

1930 

1931 

1938 
1933 

1939 
1935 
1930 

1937 

1938 

1939 

1990 


h1ock((xa»iS“3)»l.»51t.-(va«is»13)*l.»(»ai<is+3)»l.»511.”(ya«i$»7)*l,); 
b)ock((»axis+7)»l.,Sll,»(va«is*3)«l./(»a»is+13)*l.»51l.”(va»is“3)*l.)» 
bioek((xaxis”13)*l.»511.“(vaxis*3)«l.»(xaxis”7)»l.»511.“(yaxis“3)*l.)7 
oloc9((xaxis-13)»!.»511.“(vaxis*13)»l.»(x8xis-7)»l.»511.*(yaxist7)»l.); 
break: 
ease  7: 

bloc<((«axiS“3)*l.»511.”(vaxi8*3)*l.»(xa«isr3)*l.f511«”(yaxi8“3)»l.)J 
o1ock((xaxis*i)«l.»51t.-(yaxis”7)«l,,(xaxis+3)*l.»511.-(yaxis-13)*l.)J 
block((xaxis“3)*1..5tl.-(yaxisrl3)«l.»Cxaxis+3)»l.»5ll.“(vax»s*7)»l.): 
bloek((xaxis«-7)«l,,Sll,-(yaxi$r3)»l./(xaxis+13)*l.»51l.“(y8xiS”3)»l.)» 
block((xaxis”li)»l.»511.'“(yaxis+5)*l.»(xax)S“7)«l.»51l.“(y8xi8“3)»l.): 
blockf{xaxis”l3)»l.»511.-(yaxlsrl3)«l.»(xaxis”7)»l.,511.“(yaxis»7)»l.); 
bloek((xaxis*7)*l./511.-(yaxis^l3)*l.>(xaxis«'13)*l./511.~(yax<s*7)*l.): 
break : 
aefault: 

owerflowtrl (et rower f 1  owl tOlsxaxls: 
overflowtbl fct rower 7 lowJ  (lJ=ya«ls: 
et  rower  f I ow>* : 

blockf(xaxis-3)*l.*5ll.*(yaxis*3)*l.»(xaxis»3)*l.»511.”(y8»iS“3)*l.): 
bIoek((xaxis”3)»l.f.511.“(yaxis“7)»l,»(xaxl$»3)*l.»511,-(yaxi9“13)*l.)J 
b1ock(txaxis”J)*I.»511.*(yaxis*15)»l.»(xaxisr3)»l.*5II.-(ya»i8y7)«I.)» 
bloc'<((xaxist7)«l,,511.“(waxisr5)»l.»(xaxis  +  13)*l.»511.”(ya»is“3)»l.)*7 
block((xaxiS“13)*l.»511.”(yaxis*3)»l.»(xaxis“7)*l.,511.“(yaxis“3)*l«): 
bloew((xaxis-l3)»l.«51t.“(yaxi8*l3)*l.»(xaxis“7)»l.#511»“(w8*'St7)*l.): 
o1ock((xaxis*7)»l.*511.“(yaxis»13)*l.»(xaxi9+13)*l.»511.*(ya»i8t7)»l.): 
col  or (e I  ass ) < 

37 1 tcol arse  I  ass: 
j 7 ( xax i s»250 )  < 

prlntg(0,xa»i9738.0»511.-yaxis»*Xd"»point"7): 

) 

else  1 

priotgf OxxaxIs-SO.OfSl l.-yaxls»*%d"rOOint-7); 

) 

break; 

) 

return; 

) 


Dekt3(xaxis>ya«<s>tota1>elrc2>c3xc9rc5rc6rc7>class) 


( 


shI ten  (total )  ( 

case  0: 

break: 
case  i: 
cpl or (c  1 ) : 

oloek((xaxis”3)«l.»511.“{ya»isr3)*l.»(xaxi9t5)»l.»511.“(ya*»S“3)»l.); 

break; 

case  2: 
colored  ); 

block((xa*is”3)*l«»511«“(ya»lsr3)*l.»(xa*i9r3)»l.»511,«(ya»iS“3)*l.); 
eolor(c2) ; 

bloek((xaxi9”3)»1.»511.”(ya»is“7)»l.»(xaxj9r3)*l.t511,“(ya*lS“13)el.)J 
break; 
case  3: 

col  or (e 1 ) ; 

b1oek((xa«is~3)*l.>511«*(yaxlst3)*l.r(xaxist3)*l«>511.~(ya«ls~3)*l.); 

color(c8); 

block((*axis*3)*l.*511.”(ve«i9-7)»l,f(xaxlst3)*l.»5ll.”(yaKls"13)*l.)> 
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lay  I  color(c3}> 

lay^  e>1ock((iia«is-S)*I.<51i.-(va>>is«'l3)*l>>(xaxis  +  3)*l>rStl.~(yaxist7)*l.); 

1443  break; 

1444  case  4: 

1445  colorCeli: 

1446  block((xa«is*3)*I.>51t.-(yaxis4'3)*l.>(xaxisr3)*l.>511.-(vaxis*3)*l>); 

1447  eolor(c2); 

1448  b1oek((xaxis~3)*l.«5tl.-(yaxis~7)*l.r(xaxis^3)*l.>511.'*(yaxis<'13)*l«); 

1449  color(c3); 

1450  b1ock((xaxi3~3)*l.>511.*(yax1s*13)*l.r(xax«st3)*l.>511.~(yaxis*7)*l.); 

1451  eolor(c4); 

1452  block((xaxis>7)*l.<$ll.-(yaxist3)*l>>(xaxis^l3}*l»>Sll.-(y8xit~3)*la}; 

1453  break; 

1454  case  S: 

1455  color(cl); 

1456  blocxCCxaxis- 31*1. <511. ‘•(yaxis«'3>xl.>(xaxis*3)*l.rSll.-(yaxis-3)*l<); 

1457  color(c2); 

1459  b1ocx((xa«iS'*3)*l.<511.-(yaxis-7)*l.<(xaxis*3)*l.<51).~(yaxi$-13)*l.}; 

1459  color(c3); 

1460  block(((axis"3)*l.<.511.-(yaxts*13)*l.<(xaxts*3)*l.<51t.~(yaxis*7)*l.); 

1461  co1or(c4); 

1462  oloc<((xaxis*7)»l.<511.-(yaxis*3)»l.<(xaxis*13)*t.<511.-(yaxis"3)*l.)*; 

1463  color(c5); 

1464  b1ock((«axis*13)*l.<511.'*(yaxis*3)*t.<(xax<s~7)*l.<511.-(yaxis~3)*l.); 

1465  break; 

1466  case  6: 

1467  color(ct); 

1468  b1ock((xax<s*3)*l.<51t.<'(yax<s*3)*l.<(xsx<s*3)*l.<511.-(yax<t'3)*l.); 

1469  co1or(c2); 

1470  e1eck((xax1s*3)*l.f5tt.-(yaxis*7}*l.<(xaxls*3)*l.<511.*(yaxis>13)*l.); 

1471  eolor(c3); 

1472  b)ocx((xaxis~3)*l«<Sll.«(yaxis*13)*I.<(xaxist3)*l.<Sll.-(yaxlst7)«l.); 

1473  eolor(e4); 

1474  bIock((xaxis*7)*l.<5ll.-(ysxis*3)*l.<(xaxfs*'l3)*l.<511.'*(yaxis~3)*l.); 

1475  CO  I  or (c5 1 ; 

1476  olock((xaxis'*13)*l.<511.'*(yaxfs*3}*l.<(xaxis~7)*l.<511.*(ysx<s'*3)*l.); 

1477  co)or(c6); 

1478  block((xaxis~13)*l.<Sll.-(yaxi$tl3)*l.r(xaxis'7)*l.<Sll.<‘(yax<s*7)*l.); 

1479  break; 

1480  case  7: 

1481  color(cl); 

1482  b1oek((xaxiS'*3)*l.<5ll.-(yaxis*3)*l.<(xax(s*3)*l.r511.~(yax<s*3)xl.); 

1483  color(c2); 

1484  block((«axis~3)*l.<511.>(yaxis'-7)*l.r(xaxist3}*l.<511.-(yaxjs*>13)*l.); 

1485  coler(c3); 

1486  Mock((xax1s~3)*l.<511.-(vsxis*13)*l.<(xaxis*3)*l.f511.-(yaxlst7)*l.); 

1487  color(c4); 

1488  b1ockC(xaxis*7)*l.t511.'-(yaxls't3)*l.<(xaxis*13)*l.<51l.'>(yaxls~3)*l.); 

1489  colorfcS); 

1490  block((xa*is'13)*l.<511.-(yax<s*3)*l.<(xaxis-7}*l.<511.*(yaxis*3)*t.); 

1491  color(c6); 

1492  b1ock((xax<s*13)*l.<511.*(yaxistl3)*l.<(xaxis-7}*l.r5ll.-(yaxis*7)*l.); 

1493  Co1or(c7); 

1 494  b1oek((«axitt7)*t.<511.*(ysxistl3)*l.r(xax(t*13)xl.>511.~(yaxist7)*l.); 

1495  break; 

1496  delault: 

1497  overflorttbl lerroverf low]  (Olsxaxls; 

1496  overflewtbl (ct roverf low] lllsyaxla; 

1499  Ct roverf loway; 

1500  eelor(cl)] 
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1501 

1502 

1503 

1504 

1505 
1500 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 


bloci<((*a«is-3)*l..511."(va«i»*3)*l.»(iia«is  +  3)*1.f5ll.”(ya*iS"3)*l.)J 
color(c2); 

block{(«axis“3)»l.f5tl.“(va«is“7)*l,»(i«a«ist3)*l.»511.”(vai«is*l3)*l.); 
col  OP (c  3 )  J 

bloCK((*a»iS'*3)»l.i511.”(va«is*15)*l.*(«axitP3)*l.f511.”(ya*is+7)»l,)7 
eoi or(e4 ) ; 

block(fxaxis+7)»l.,511.-(ydxis+3)*l.»(xaxis»13)»l.f511.”(yaxis“3)»l.)» 
co1op(e5) ; 

elock.((xaxis“15)*l.»5ll.“(yaxis*3)»l.»Cxaxis“7)»I,»5ll.-(yaxts"3)*l.)f 
coIop(c6) i 

b1ocl<((xaxis”15)»l.#511.-(yaxis+13)»l.»(xaxis“7)»l.»511,-(yaxji47)»l.); 

eolop(c7j; 

block((xaxis'>7)*t.>511.-(yax<syt3)*l>>(xaxistl3)*l.x511.~(yaxl«*7)*l.); 
colorCel ass) > 
ofltcolop-class; 
i f ( xax i s>2S0 )  < 

DPinta(0<xaxist3S.0>511.'*yaxis>*Xd*>tOta)~7)7 

> 

else  < 

OPiotg(0«xaxis“50.0»511.“vaxis»"Xd"»total“7);  ^ 

break; 

) 

petuPnJ 

) 


pesctO  ( 

/•  reset  tunctlon  tor  successive  network  iterations  •/ 
int  i  >'nark<x«y>z; 

if{verss=t  !!  verss»2)  < 

tor  ( i  S');  i  <nhro  I  Ot  ;  i  tt)  1 
col  or ( 1 4 1 ; 

xsHnktbl  ti)  111  ; 
y:1 inktbl  (il  (21 1 
zsi inktbl  (il  (3) ; 
ittzssO)  ( 

bIock((x“3)*l.»511.“(y”7)*l.r(xt3)*l»»5ll.“(y”13)*l«); 

h1ock'((x-i3)»l,»511.”(ytl3)*l.»(xtl3)»l.f511.“(y”3)*l.); 

) 

else  1 

block((x-16)*l.»511.”(y"2)«l.rx»l.»511.“(y»10)*l.); 

blcck((x»t6)*l.»511«“(y*10)»l.fX»l.»511.”(yt2)»l.)J 

) 

> 

) 

else  < 

f or ( i sy > i < t blct r”l ; i t*)  < 
colop( 14); 
xsuniQuetbl  (i)  (1) 7 
ysuniouetbl  (i)  (2)7 
zsuni Quetbl ( i 1 (3) I 
if(*s=0)  ( 

b)ock((x-3)»).,511.-(y-7)»l.,(x+5)»l.,51l.-{y-13)'»l.); 

block((x-13)«l.,511.-(y»13)«l.,(xtl5)*l.»511.-(y-3)»l.); 

) 

el  sc  ( 

block((x-16)«l.,5l I .-(y-2)*l ..x*l .,51 l.-(y-10  )*!.); 
bl ock (( *-16)« 1. , 51 l.-(y»10)*l.,x«l. ,51 l.-(y»2 )*!.); 
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1S61  ) 

1S6^  > 

156?  > 

ISba  return! 

1565  > 

1 56o 

1567 

1568  coltabO  < 

1569  int  iJ 

1570 

1571  i=Il*16; 


1572 

1 oacol ( 

i  ♦♦ 

. 15,15.15); 

/* 

color 

0 

•  / 

1573 

lodeol ( 

i  ♦♦ 

.0,10.0); 

/* 

color 

1 

*/ 

157a 

1 oacol ( 

i  ♦♦ 

,15,0,0): 

/• 

color 

2 

*/ 

1575 

1 odcol ( 

i  ♦♦ 

,15, 15,0); 

/* 

color 

3 

»/ 

1576 

1 odeot ( 

i  ♦♦ 

.12,0,12): 

/* 

color 

a 

*/ 

1577 

1 odcdt ( 

1  ♦♦ 

.5,5.12); 

/• 

color 

5 

*/ 

1578 

lodeol ( 

i  »  ♦ 

.6,6.5); 

/» 

color 

6 

»/ 

1579 

1 odcol ( 

1  ♦  ♦ 

,5,3.3); 

/• 

color 

7 

»/ 

1580 

I odcol ( 

i  ♦  ♦ 

.  10.6. to); 

/* 

color 

8 

»/ 

1581 

1 odeol ( 

i  ♦♦ 

.12,5,5); 

/» 

color 

9 

*/ 

1582 

lodeol ( 

i  t  ♦ 

,5,5,5); 

/• 

color 

10 

*/ 

1583 

1 odedi ( 

i  ♦♦ 

. 12, 12,0): 

/• 

col  or 

11 

♦  / 

1589 

lodeol ( 

i  ♦  ♦ 

,8,7,5); 

/» 

color 

12 

*/ 

1585 

lodeol ( 

i  ♦  ♦ 

,5,«,2)! 

/* 

color 

13 

•  / 

1586 

lodcdl ( 

i  ♦♦ 

.0,0,6); 

/• 

color 

19 

*/ 

1587 

lodeol ( 

i  ♦♦ 

.6,0,0); 

/* 

color 

15 

•/ 

1588  return! 

1589  1 

1590 

1591 


1592 

1593  /*»««..*«  *«.*».»**/ 

1599  /♦**»«.*»  £h0  OF  PROGRAM  lINKCRAPm.C  •**»•*•»*/ 

1595  /«*«**«••  *«•*•**••/ 

1597 
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